Help for this page

Select Code to Download

Select or download this

$ perl -MO=Concise -e 'sub DESTROY{print "Foo"} do{1;my $x=bless{}}; p
+rint "Bar"'
f  <@> leave[1 ref] vKP/REFC ->(end)
...
b     <@> print vK ->c
9        <0> pushmark s ->a
a        <$> const(PV "Bar") s ->b