al::Importer->_import_lex_sub(foo => sub () { rand() < 2 ? 123 : 0 }) }
push @values, foo 10;
};
isnt $@, "";
is_deeply \@values, [];
@values = ();
eval q{
BEGIN { require Lexical::Importer; Lexica
Importer->_import_lex_sub(foo => sub () { rand() < 2 ? 123 : 0 }) }
push @values, foo 10, 20;
};
isnt $@, "";
is_deeply \@values, [];
@values = ();
eval q{
BEGIN { require Lexical::Importer; Lexica
rter->_import_lex_sub(foo => sub () { rand() < 2 ? 123 : 0 }) }
push @values, foo { 10+20; };
};
isnt $@, "";
is_deeply \@values, [];
@values = ();
eval q{
BEGIN { require Lexical::Importer; Lexica
:Importer->_import_lex_var('&foo' => sub () { rand() < 2 ? 123 : 0 }) }
push @values, foo 10;
};
isnt $@, "";
is_deeply \@values, [];
@values = ();
eval q{
BEGIN { require Lexical::Importer; Lexica
orter->_import_lex_var('&foo' => sub () { rand() < 2 ? 123 : 0 }) }
push @values, foo 10, 20;
};
isnt $@, "";
is_deeply \@values, [];
@values = ();
eval q{
BEGIN { require Lexical::Importer; Lexica
:Importer->_import_lex_var('&foo' => sub () { rand() < 2 ? 123 : 0 }) }
push @values, foo @x;
};
isnt $@, "";
is_deeply \@values, [];
@values = ();
eval q{
BEGIN { require Lexical::Importer; Lexica
rter->_import_lex_var('*foo' => \undef) }};
isnt $@, "";
eval q{BEGIN { require Lexical::Importer; Lexical::Importer->_import_lex_var('*foo' => \1) }};
isnt $@, "";
eval q{BEGIN { require Lexical::Imp
porter->_import_lex_var('*foo' => \1.5) }};
isnt $@, "";
eval q{BEGIN { require Lexical::Importer; Lexical::Importer->_import_lex_var('*foo' => \[]) }};
isnt $@, "";
eval q{BEGIN { require Lexical::Im
port_lex_var('*foo' => \"abc") }};
isnt $@, "";
eval q{BEGIN { require Lexical::Importer; Lexical::Importer->_import_lex_var('*foo' => bless(\(my$x="abc"))) }};
isnt $@, "";
eval q{BEGIN { require Lex
rter->_import_lex_var('&foo' => \undef) }};
isnt $@, "";
eval q{BEGIN { require Lexical::Importer; Lexical::Importer->_import_lex_var('&foo' => \1) }};
isnt $@, "";
eval q{BEGIN { require Lexical::Imp
porter->_import_lex_var('&foo' => \1.5) }};
isnt $@, "";
eval q{BEGIN { require Lexical::Importer; Lexical::Importer->_import_lex_var('&foo' => \[]) }};
isnt $@, "";
eval q{BEGIN { require Lexical::Im
port_lex_var('&foo' => \"abc") }};
isnt $@, "";
eval q{BEGIN { require Lexical::Importer; Lexical::Importer->_import_lex_var('&foo' => bless(\(my$x="abc"))) }};
isnt $@, "";
eval q{BEGIN { require Lex
:Importer->_import_lex_sub(foo => \undef) }};
isnt $@, "";
eval q{BEGIN { require Lexical::Importer; Lexical::Importer->_import_lex_sub(foo => \1) }};
isnt $@, "";
eval q{BEGIN { require Lexical::Impo
::Importer->_import_lex_sub(foo => \1.5) }};
isnt $@, "";
eval q{BEGIN { require Lexical::Importer; Lexical::Importer->_import_lex_sub(foo => \[]) }};
isnt $@, "";
eval q{BEGIN { require Lexical::Impo
->_import_lex_sub(foo => \"abc") }};
isnt $@, "";
eval q{BEGIN { require Lexical::Importer; Lexical::Importer->_import_lex_sub(foo => bless(\(my$x="abc"))) }};
isnt $@, "";
eval q{BEGIN { require Lexi
rter->_import_lex_var('%foo' => \undef) }};
isnt $@, "";
eval q{BEGIN { require Lexical::Importer; Lexical::Importer->_import_lex_var('%foo' => \1) }};
isnt $@, "";
eval q{BEGIN { require Lexical::Imp
porter->_import_lex_var('%foo' => \1.5) }};
isnt $@, "";
eval q{BEGIN { require Lexical::Importer; Lexical::Importer->_import_lex_var('%foo' => \[]) }};
isnt $@, "";
eval q{BEGIN { require Lexical::Im
port_lex_var('%foo' => \"abc") }};
isnt $@, "";
eval q{BEGIN { require Lexical::Importer; Lexical::Importer->_import_lex_var('%foo' => bless(\(my$x="abc"))) }};
isnt $@, "";
eval q{BEGIN { require Lex
rter->_import_lex_var('@foo' => \undef) }};
isnt $@, "";
eval q{BEGIN { require Lexical::Importer; Lexical::Importer->_import_lex_var('@foo' => \1) }};
isnt $@, "";
eval q{BEGIN { require Lexical::Imp
porter->_import_lex_var('@foo' => \1.5) }};
isnt $@, "";
eval q{BEGIN { require Lexical::Importer; Lexical::Importer->_import_lex_var('@foo' => \[]) }};
isnt $@, "";
eval q{BEGIN { require Lexical::Im
port_lex_var('@foo' => \"abc") }};
isnt $@, "";
eval q{BEGIN { require Lexical::Importer; Lexical::Importer->_import_lex_var('@foo' => bless(\(my$x="abc"))) }};
isnt $@, "";
eval q{BEGIN { require Lex
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 $@,
l::Importer; Lexical::Importer->_import_lex_var('$foo' => \(my$x=1)) }
}
push @values, $foo;
};
isnt $@, "";
is_deeply \@values, [];
@values = ();
eval q{
no strict;
{
BEGIN { require Lexical::
ire Lexical::Importer; Lexical::Importer->_unimport_lex_var('$foo') }
push @values, $foo;
}
};
isnt $@, "";
is_deeply \@values, [];
@values = ();
eval q{
no strict;
BEGIN { require Lexical::Impo
orter->_import_lex_var('$foo' => []) }};
isnt $@, "";
eval q{BEGIN { require Lexical::Importer; Lexical::Importer->_import_lex_var('$foo' => bless([])) }};
isnt $@, "";
eval q{BEGIN { require Lexical:
orter->_import_lex_var('$foo' => {}) }};
isnt $@, "";
eval q{BEGIN { require Lexical::Importer; Lexical::Importer->_import_lex_var('$foo' => bless({})) }};
isnt $@, "";
eval q{BEGIN { require Lexical:
->_import_lex_var('$foo' => sub{}) }};
isnt $@, "";
eval q{BEGIN { require Lexical::Importer; Lexical::Importer->_import_lex_var('$foo' => bless(sub{})) }};
isnt $@, "";
eval q{BEGIN { require Lexica
;
@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 $@,
Lexical::Importer; Lexical::Importer->_import_lex_var('@foo' => [1]) }
}
push @values, @foo;
};
isnt $@, "";
is_deeply \@values, [];
@values = ();
eval q{
no strict;
{
BEGIN { require Lexical::
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 $@,
ical::Importer; Lexical::Importer->_import_lex_var('%foo' => {a=>1}) }
}
push @values, %foo;
};
isnt $@, "";
is_deeply \@values, [];
@values = ();
eval q{
no strict;
{
BEGIN { require Lexical::