Help for this page

Select Code to Download


  1. or download this
    package My::Guard;
use strict;
...
sub DESTROY {
    $_[0]->()
};
  2. or download this
    #!perl -w
package My::Guard;
...
undef $restore;
print "Restored\n";
print qq($a $b), "\n";