Create a gist now

Instantly share code, notes, and snippets.

#!/usr/bn/env perl
use 5.12.1;
use warnings;
package Foo {
use Devel::GlobalDestruction;
sub new { bless {}, ref $_[0] || $_[0] }
return if in_global_destruction;
say "Gasp!";
my $foo = Foo->new;
exit 0;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment