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(); |