public
Last active

  • Download Gist
exit.pl
Perl
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
#!/usr/bin/env perl
use 5.12.1;
use warnings;
#use POSIX qw/_exit/;
 
package Foo {
use Moose;
 
sub DEMOLISH {
my ( $self, $in_global_destruction ) = @_;
say $in_global_destruction ? "*Poof*" : "Gasp!";
}
}
 
my $foo = Foo->new;
exit 0;
#_exit 0;

Please sign in to comment on this gist.

Something went wrong with that request. Please try again.