BrowserUk's answer is the most sensible one for the script you outlined - but in the spirit of TMTOWTDI:
So that's three ways of doing it ;-)
{ package SelfRef; sub new { my $self_ref; bless \($self_ref = \$self_ref), shift; }; sub DESTROY { print "destroy handler in phase 2 GC\n"; }; }; SelfRef->new; END { print "end block\n" }; use subs 'exit'; sub exit { print "overrided exit(@_)\n"; CORE::exit(@_); } exit(0); __END__ # produces overrided exit(0) end block destroy handler in phase 2 GC
In reply to Re: Unique testing problem
by adrianh
in thread Unique testing problem
by zakzebrowski
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |