[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'); (); }

use Devel::BeginLift qw(foo bar);

foo(my $meep, 'yay');

bar($meep);
Commit	Line	Data
31bd32f9	1	use strict;
	2	use warnings;
	3	use Test::More 'no_plan';
	4
	5	sub foo { $_[0] = $_[1]; (); }
	6
	7	sub bar { is($_[0], 'yay', 'Var set ok'); (); }
	8
	9	use Devel::BeginLift qw(foo bar);
	10
	11	foo(my $meep, 'yay');
	12
	13	bar($meep);