[p5sagit/Devel-BeginLift.git] / test.pl

use Devel::BeginLift 'foo';

use vars qw($int);

BEGIN { $int = 1 }

sub foo { warn "foo: $_[0]\n"; $int++; 4; }

sub bar { warn "bar: $_[0]\n"; }

warn "yep\n";

warn foo("foo");

warn bar("bar");

warn "yep2: $int\n";

no Devel::BeginLift;

foo();
Commit	Line	Data
0395308e	1	use Devel::BeginLift 'foo';
	2
	3	use vars qw($int);
	4
	5	BEGIN { $int = 1 }
	6
	7	sub foo { warn "foo: $_[0]\n"; $int++; 4; }
	8
	9	sub bar { warn "bar: $_[0]\n"; }
	10
	11	warn "yep\n";
	12
	13	warn foo("foo");
	14
	15	warn bar("bar");
	16
	17	warn "yep2: $int\n";
	18
	19	no Devel::BeginLift;
	20
	21	foo();