CPAN::Groonga

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{
	use 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' =