Commit | Line | Data |
---|---|---|
583a019e | 1 | END { print "main:: the end\n" } |
2 | sub FOO::END { print "foo:: the end\n" } | |
3 | ||
4 | ||
5 | sub foo { | |
6 | my $x; | |
7 | my $y; | |
8 | print "in sub foo\n"; | |
9 | for( $x = 1; $x < 100; ++$x ){ | |
10 | bar(); | |
11 | for( $y = 1; $y < 100; ++$y ){ | |
12 | } | |
13 | } | |
14 | } | |
15 | ||
16 | sub bar { | |
17 | my $x; | |
18 | print "in sub bar\n"; | |
19 | for( $x = 1; $x < 100; ++$x ){ | |
20 | } | |
21 | } | |
22 | ||
23 | sub baz { | |
24 | print "in sub baz\n"; | |
25 | bar(); | |
26 | foo(); | |
27 | } | |
28 | ||
29 | bar(); | |
30 | baz(); | |
31 | foo(); | |
32 |