ush @values, foo 10;
};
isnt $@, "";
is_deeply \@values, [];
@values = ();
eval q{
use Lexical::Sub foo => sub () { rand() < 2 ? 123 : 0 };
push @values, foo 10, 20;
};
isnt $@, "";
is_deeply \@val
h @values, foo @x;
};
isnt $@, "";
is_deeply \@values, [];
@values = ();
eval q{
use Lexical::Sub foo => sub () { rand() < 2 ? 123 : 0 };
push @values, foo { 10+20; };
};
isnt $@, "";
is_deeply \@v
sh @values, foo(10);
};
isnt $@, "";
is_deeply \@values, [];
@values = ();
eval q{
use Lexical::Sub foo => sub () { rand() < 2 ? 123 : 0 };
push @values, foo(10, 20);
};
isnt $@, "";
is_deeply \@va
sh @values, foo 10;
};
isnt $@, "";
is_deeply \@values, [];
@values = ();
eval q{
use Lexical::Var '&foo' => sub () { rand() < 2 ? 123 : 0 };
push @values, foo 10, 20;
};
isnt $@, "";
is_deeply \@v
@values, foo @x;
};
isnt $@, "";
is_deeply \@values, [];
@values = ();
eval q{
use Lexical::Var '&foo' => sub () { rand() < 2 ? 123 : 0 };
push @values, foo { 10+20; };
};
isnt $@, "";
is_deeply \
@values, foo(10);
};
isnt $@, "";
is_deeply \@values, [];
@values = ();
eval q{
use Lexical::Var '&foo' => sub () { rand() < 2 ? 123 : 0 };
push @values, foo(10, 20);
};
isnt $@, "";
is_deeply \@v
oo' => \undef;};
isnt $@, "";
eval q{use Lexical::Var '*foo' => \1;};
isnt $@, "";
eval q{use Lexical::Var '*foo' => \1.5;};
isnt $@, "";
eval q{use Lexical::Var '*foo' => \[];};
isnt $@, "";
eval q{u
se Lexical::Var '*foo' => \"abc";};
isnt $@, "";
eval q{use Lexical::Var '*foo' => bless(\(my$x="abc"));};
isnt $@, "";
eval q{use Lexical::Var '*foo' => \*main::wibble;};
is $@, "";
eval q{use Lexica
/xyz/;};
isnt $@, "";
eval q{use Lexical::Var '*foo' => bless(qr/xyz/);};
isnt $@, "";
eval q{use Lexical::Var '*foo' => [];};
isnt $@, "";
eval q{use Lexical::Var '*foo' => bless([]);};
isnt $@, "";
oo' => \undef;};
isnt $@, "";
eval q{use Lexical::Var '&foo' => \1;};
isnt $@, "";
eval q{use Lexical::Var '&foo' => \1.5;};
isnt $@, "";
eval q{use Lexical::Var '&foo' => \[];};
isnt $@, "";
eval q{u
ical::Var '&foo' => \"abc";};
isnt $@, "";
eval q{use Lexical::Var '&foo' => bless(\(my$x="abc"));};
isnt $@, "";
eval q{use Lexical::Var '&foo' => \*main::wibble;};
isnt $@, "";
eval q{use Lexical::V
ibble);};
isnt $@, "";
eval q{use Lexical::Var '&foo' => qr/xyz/;};
isnt $@, "";
eval q{use Lexical::Var '&foo' => bless(qr/xyz/);};
isnt $@, "";
eval q{use Lexical::Var '&foo' => [];};
isnt $@, "";
e
:Sub foo => \undef;};
isnt $@, "";
eval q{use Lexical::Sub foo => \1;};
isnt $@, "";
eval q{use Lexical::Sub foo => \1.5;};
isnt $@, "";
eval q{use Lexical::Sub foo => \[];};
isnt $@, "";
eval q{use L
exical::Sub foo => \"abc";};
isnt $@, "";
eval q{use Lexical::Sub foo => bless(\(my$x="abc"));};
isnt $@, "";
eval q{use Lexical::Sub foo => \*main::wibble;};
isnt $@, "";
eval q{use Lexical::Sub foo
=> qr/xyz/;};
isnt $@, "";
eval q{use Lexical::Sub foo => bless(qr/xyz/);};
isnt $@, "";
eval q{use Lexical::Sub foo => [];};
isnt $@, "";
eval q{use Lexical::Sub foo => bless([]);};
isnt $@, "";
eval
oo' => \undef;};
isnt $@, "";
eval q{use Lexical::Var '%foo' => \1;};
isnt $@, "";
eval q{use Lexical::Var '%foo' => \1.5;};
isnt $@, "";
eval q{use Lexical::Var '%foo' => \[];};
isnt $@, "";
eval q{u
ical::Var '%foo' => \"abc";};
isnt $@, "";
eval q{use Lexical::Var '%foo' => bless(\(my$x="abc"));};
isnt $@, "";
eval q{use Lexical::Var '%foo' => \*main::wibble;};
isnt $@, "";
eval q{use Lexical::V
ibble);};
isnt $@, "";
eval q{use Lexical::Var '%foo' => qr/xyz/;};
isnt $@, "";
eval q{use Lexical::Var '%foo' => bless(qr/xyz/);};
isnt $@, "";
eval q{use Lexical::Var '%foo' => [];};
isnt $@, "";
e
oo' => \undef;};
isnt $@, "";
eval q{use Lexical::Var '@foo' => \1;};
isnt $@, "";
eval q{use Lexical::Var '@foo' => \1.5;};
isnt $@, "";
eval q{use Lexical::Var '@foo' => \[];};
isnt $@, "";
eval q{u
ical::Var '@foo' => \"abc";};
isnt $@, "";
eval q{use Lexical::Var '@foo' => bless(\(my$x="abc"));};
isnt $@, "";
eval q{use Lexical::Var '@foo' => \*main::wibble;};
isnt $@, "";
eval q{use Lexical::V
r '@foo' => bless(\*main::wibble);};
isnt $@, "";
eval q{use Lexical::Var '@foo' => qr/xyz/;};
isnt $@, "";
eval q{use Lexical::Var '@foo' => bless(qr/xyz/);};
isnt $@, "";
eval q{use Lexical::Var '@f
ie "WARNING: $_[0]";
};
our @values;
@values = ();
eval q{
use strict;
push @values, $foo;
};
isnt $@, "";
is_deeply \@values, [];
@values = ();
eval q{
no strict;
push @values, $foo;
};
is $@,
= ();
eval q{
use strict;
{
use Lexical::Var '$foo' => \(my$x=1);
}
push @values, $foo;
};
isnt $@, "";
is_deeply \@values, [];
@values = ();
eval q{
no strict;
{
use Lexical::Var '$foo' =
;
use Lexical::Var '$foo' => \(my$x=1);
{
no Lexical::Var '$foo';
push @values, $foo;
}
};
isnt $@, "";
is_deeply \@values, [];
@values = ();
eval q{
no strict;
use Lexical::Var '$foo' => \(
o' => [];};
isnt $@, "";
eval q{use Lexical::Var '$foo' => bless([]);};
isnt $@, "";
eval q{use Lexical::Var '$foo' => {};};
isnt $@, "";
eval q{use Lexical::Var '$foo' => bless({});};
isnt $@, "";
ev
al q{use Lexical::Var '$foo' => sub{};};
isnt $@, "";
eval q{use Lexical::Var '$foo' => bless(sub{});};
isnt $@, "";
eval q{use Lexical::Var '$foo' => \undef; $foo if 0;};
is $@, "";
eval q{use Lexic
;
@main::foo = (undef);
our @values;
@values = ();
eval q{
use strict;
push @values, @foo;
};
isnt $@, "";
is_deeply \@values, [];
@values = ();
eval q{
no strict;
push @values, @foo;
};
is $@,
values = ();
eval q{
use strict;
{
use Lexical::Var '@foo' => [1];
}
push @values, @foo;
};
isnt $@, "";
is_deeply \@values, [];
@values = ();
eval q{
no strict;
{
use Lexical::Var '@foo' =
main::foo = (a=>undef);
our @values;
@values = ();
eval q{
use strict;
push @values, %foo;
};
isnt $@, "";
is_deeply \@values, [];
@values = ();
eval q{
no strict;
push @values, %foo;
};
is $@,
ues = ();
eval q{
use strict;
{
use Lexical::Var '%foo' => {a=>1};
}
push @values, %foo;
};
isnt $@, "";
is_deeply \@values, [];
@values = ();
eval q{
no strict;
{
use Lexical::Var '%foo' =