Create a gist now

Instantly share code, notes, and snippets.

#!/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;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment