[p5sagit/Devel-BeginLift.git] / t / liftvar.t

use strict;
use warnings;
use Test::More 'no_plan';

sub foo { $_[0] = $_[1]; (); }

sub bar { is($_[0], 'yay', 'Var set ok by sub'); (); }

sub baz { () }

sub quux { is($_[0], 'w00t', 'Var set ok by ='); (); }

use Devel::BeginLift qw(foo bar baz quux);

foo(my $meep, 'yay');

bar($meep);

baz(my $lolz = 'w00t');

quux($lolz);
Commit	Line	Data
31bd32f9	1	use strict;
	2	use warnings;
	3	use Test::More 'no_plan';
	4
	5	sub foo { $_[0] = $_[1]; (); }
	6
f0655a28	7	sub bar { is($_[0], 'yay', 'Var set ok by sub'); (); }
31bd32f9	8
f0655a28	9	sub baz { () }
	10
	11	sub quux { is($_[0], 'w00t', 'Var set ok by ='); (); }
	12
	13	use Devel::BeginLift qw(foo bar baz quux);
31bd32f9	14
	15	foo(my $meep, 'yay');
	16
	17	bar($meep);
f0655a28	18
	19	baz(my $lolz = 'w00t');
	20
	21	quux($lolz);