semifor · December 5, 2012 16:28
diff --git a/destroy.pl b/destroy.pl
 #!/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;
	#!/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;
No results found