sub DESTROY { print "$_[0][0] destroyed\n" } { my $x1 = bless [ "x1" ]; goto L2; L1: my $x2 = bless [ "x2" ]; goto L3; L2: my $x3 = bless [ "x3" ]; goto L1; L3: } __END__ x2 destroyed x3 destroyed x1 destroyed
Dave.
In reply to Re: Controlling the order of object destruction
by dave_the_m
in thread Controlling the order of object destruction
by metaperl
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |