use Test::More 0.89;
+plan skip_all => 'This module is a no-op on perls earlier than 5.010' if "$]" < 5.010000;
+
local $SIG{__WARN__} = sub { fail("Got unexpected warning"); diag($_[0]) };
if ($] >= 5.010000) {
END
}
-if ($] >= 5.021005) {
+if ($] >= 5.026000) {
+ is (eval <<'END', 1, 'declared refs compiles') or diag $@;
+ use experimental 'declared_refs';
+ my @b;
+ my \@a = \@b;
+ is(\@a, \@b, '@a and @b are the same after \@a=\@b');
+ 1;
+END
+}
+elsif ($] >= 5.021005) {
is (eval <<'END', 1, 'ref aliasing compiles') or diag $@;
use experimental 'refaliasing';
my (@a, @b);