my $expect = qr/^Invalid ARRAY reference/;
local $@;
eval q[
- use Lexical::Types as => [ qw/a b c/ ];
+ use Lexical::Types as => [ qw<a b c> ];
my LTT $x;
];
like $@, $expect, 'as => array';
{
my $expect = qr/^Lexical::Types mangler should return zero, one or two scalars, but got 3/;
- diag 'This will throw two warnings' if $] >= 5.008008 and $] < 5.009;
+ diag 'This will throw two warnings' if "$]" >= 5.008_008 and "$]" < 5.009;
local $@;
eval q[
- use Lexical::Types as => sub { qw/a b c/ };
+ use Lexical::Types as => sub { qw<a b c> };
my LTT $x;
];
like $@, $expect, 'as => code, returning three scalars';
{
my $expect = qr/^banana at \(eval \d+\) line 2/;
- diag 'This will throw two more warnings' if $] >= 5.008008 and $] < 5.009;
+ diag 'This will throw two more warnings' if "$]" >= 5.008_008 and "$]" < 5.009;
local $@;
eval q[
use Lexical::Types as => sub { die 'banana' };