use strict;
use warnings;
-use Test::More tests => 21 + ($^V ge v5.10.0 ? 1 : 0);
+use Test::More tests => 21 + ("$]" >= 5.010 ? 1 : 0);
use Sub::Nary;
} elsif ($h{foo}) {
return 3, @a[4, 5];
} elsif (@a) {
- return @h{qw/a b c/}, $y
+ return @h{qw<a b c>}, $y
}
}
[ sub { $x or (3, 4) }, { 1 => 0.5, 2 => 0.5 } ],
[ sub { $x && (3, 4) }, { 1 => 0.5, 2 => 0.5 } ],
[ sub { $x and (3, 4) }, { 1 => 0.5, 2 => 0.5 } ],
- (([ eval 'sub { $x // (3, 4) }', { 1 => 0.5, 2 => 0.5 } ]) x ($^V ge v5.10.0)),
+ (([ eval 'sub { $x // (3, 4) }', { 1 => 0.5, 2 => 0.5 } ]) x ("$]" >= 5.010)),
);
my $i = 1;