perl 5.0 alpha 6
[perl.git] / t / foo.out
1 {
2 5   TYPE = block exit  ===> DONE
3     FLAGS = (UNKNOWN,KIDS,PARENS)
4     {
5 1       TYPE = block entry  ===> 2
6     }
7     {
8 2       TYPE = next statement  ===> 3
9         FLAGS = (SCALAR)
10         LINE = 1
11     }
12     {
13 4       TYPE = subroutine entry  ===> 5
14         FLAGS = (UNKNOWN,KIDS)
15         {
16             TYPE = null operation  ===> (4)
17             WAS = subroutine reference
18             FLAGS = (SCALAR,KIDS)
19             {
20 3               TYPE = glob value  ===> 4
21                 FLAGS = (SCALAR)
22                 GV = main::foo
23             }
24         }
25     }
26 }
27
28 SUB ODBM_File::init = (xsub 0x7efb8 0)
29
30 SUB SDBM_File::init = (xsub 0x80318 0)
31
32 SUB NDBM_File::init = (xsub 0x7ddf8 0)
33
34 EXECUTING...
35
36 - syntax OK