Help for this page

Select Code to Download

Select or download this

    sub one::DESTROY {
        die "foo\n";
...
    say "\$\@ = $@";
    __END__
    $@ =     (in cleanup) foo

Select or download this

    sub one::DESTROY {
        local $@;
...
    say "\$\@ = $@";
    __END__
    $@ =