},
'experimental' => {
- 'DISTRIBUTION' => 'LEONT/experimental-0.011.tar.gz',
+ 'DISTRIBUTION' => 'LEONT/experimental-0.012.tar.gz',
'FILES' => q[cpan/experimental],
'EXCLUDED' => [
qr{^t/release-.*\.t},
package experimental;
-$experimental::VERSION = '0.011';
+$experimental::VERSION = '0.012';
use strict;
use warnings;
use version ();
fc => '5.16.0',
lexical_topic => '5.10.0',
lexical_subs => '5.18.0',
+ lvalue_refs => '5.21.5',
postderef => '5.20.0',
postderef_qq => '5.20.0',
regex_sets => '5.18.0',
croak "Can't enable unknown feature $pragma";
}
elsif ($min_version{$pragma} > $]) {
- croak "Need perl $min_version{$pragma} or later for feature $pragma";
+ my $stable = $min_version{$pragma};
+ if ($stable->{version}[1] % 2) {
+ $stable = version->new(
+ "5.".($stable->{version}[1]+1).'.0'
+ );
+ }
+ croak "Need perl $stable or later for feature $pragma";
}
}
=head1 VERSION
-version 0.011
+version 0.012
=head1 SYNOPSIS
array_base - allow the use of $[ to change the starting index of @array
autoderef - allow push, each, keys, and other built-ins on references
lexical_topic - allow the use of lexical $_ via "my $_"
+ lvalue_refs - allow aliasing via \$x = \$y
postderef - allow the use of postfix dereferencing expressions, including
in interpolating strings
regex_sets - allow extended bracketed character classes in regexps
END
}
+if ($] >= 5.021005) {
+ is (eval <<'END', 1, 'lvalue ref compiles') or diag $@;
+ use experimental 'lvalue_refs';
+ \@a = \@b;
+ is(\@a, \@b, '@a and @b are the same after \@a=\@b');
+ 1;
+END
+}
+
done_testing;