Group
Extension

Matches 11

Lexical-Importer ( E/EX/EXODIST/Lexical-Importer-0.000005.tar.gz, EXODIST, 2016; MetaCPAN )
Lexical-Importer/t/from_lex_vars/sub_bare.t ( view source; MetaCPAN )
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
Lexical-Importer ( E/EX/EXODIST/Lexical-Importer-0.000005.tar.gz, EXODIST, 2016; MetaCPAN )
Lexical-Importer/t/from_lex_vars/code_bare.t ( view source; MetaCPAN )
: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
Lexical-Importer ( E/EX/EXODIST/Lexical-Importer-0.000005.tar.gz, EXODIST, 2016; MetaCPAN )
Lexical-Importer/t/from_lex_vars/array_type.t ( view source; MetaCPAN )
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
Lexical-Importer ( E/EX/EXODIST/Lexical-Importer-0.000005.tar.gz, EXODIST, 2016; MetaCPAN )
Lexical-Importer/t/from_lex_vars/hash_type.t ( view source; MetaCPAN )
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
Lexical-Importer ( E/EX/EXODIST/Lexical-Importer-0.000005.tar.gz, EXODIST, 2016; MetaCPAN )
Lexical-Importer/t/from_lex_vars/code_type.t ( view source; MetaCPAN )
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
Lexical-Importer ( E/EX/EXODIST/Lexical-Importer-0.000005.tar.gz, EXODIST, 2016; MetaCPAN )
Lexical-Importer/t/from_lex_vars/sub_type.t ( view source; MetaCPAN )
: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
Lexical-Importer ( E/EX/EXODIST/Lexical-Importer-0.000005.tar.gz, EXODIST, 2016; MetaCPAN )
Lexical-Importer/t/from_lex_vars/glob_type.t ( view source; MetaCPAN )
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
Lexical-Importer ( E/EX/EXODIST/Lexical-Importer-0.000005.tar.gz, EXODIST, 2016; MetaCPAN )
Lexical-Importer/t/from_lex_vars/scalar_scope.t ( view source; MetaCPAN )
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
Lexical-Importer ( E/EX/EXODIST/Lexical-Importer-0.000005.tar.gz, EXODIST, 2016; MetaCPAN )
Lexical-Importer/t/from_lex_vars/scalar_type.t ( view source; MetaCPAN )
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
Lexical-Importer ( E/EX/EXODIST/Lexical-Importer-0.000005.tar.gz, EXODIST, 2016; MetaCPAN )
Lexical-Importer/t/from_lex_vars/array_scope.t ( view source; MetaCPAN )
;
@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::
Lexical-Importer ( E/EX/EXODIST/Lexical-Importer-0.000005.tar.gz, EXODIST, 2016; MetaCPAN )
Lexical-Importer/t/from_lex_vars/hash_scope.t ( view source; MetaCPAN )
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::

Powered by Groonga
Maintained by Kenichi Ishigaki <ishigaki@cpan.org>. If you find anything, submit it on GitHub.