public
Created

  • Download Gist
destroy.pl
Perl
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
#!/usr/bn/env perl
use 5.12.1;
use warnings;
 
package Foo {
use Devel::GlobalDestruction;
 
sub new { bless {}, ref $_[0] || $_[0] }
 
sub DESTROY {
return if in_global_destruction;
 
say "Gasp!";
}
}
 
my $foo = Foo->new;
exit 0;

Please sign in to comment on this gist.

Something went wrong with that request. Please try again.