Select Code to Download

print "Hello World";

stevan% perl -MO=Concise test.pl
6  <@> leave[1 ref] vKP/REFC ->(end)
...
5     <@> print vK ->6
3        <0> pushmark s ->4
4        <$> const[PV "Hello World"] s ->5

if (shift) {
        print "Hello World";
...
else {
        print "Goodbye World";
}

a  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
...
f              <@> print vK ->g
d                 <0> pushmark s ->e
e                 <$> const[PV "Goodbye World"] s ->f

sub start {
        print test();
...
}

print start();

perl -MO=Concise,-main,start,test test.pl
main::start:
...
k              <0> pushmark s ->l
-              <1> ex-rv2cv sK/1 ->-
l                 <#> gv[*start] s ->m