Help for this page

Select Code to Download


  1. or download this
    package Guard;
sub DESTROY { $_[0]->() };
sub guard (&) {
    bless $_[0] => __PACKAGE__
};
  2. or download this
    package Guard;
sub DESTROY { $_[0]->() };
...
Removing 'C:\Users\Corion\AppData\Local\Temp\w2guL0aAIx'
Removing 'C:\Users\Corion\AppData\Local\Temp\mtR1B1FxN3'
Frobnicating done, and cleaned up