xaicron · February 15, 2013 13:54
diff --git a/gistfile1.pl b/gistfile1.pl
 package Object;

 sub new {
    bless {}, __PACKAGE__;
 }

 sub DESTROY {
    eval {};
 }

 package main;

 eval {
    my $obj = Object->new;
    die "foo";
 };
 if (my $e = $@) {
    warn $e;
 }
	package Object;

	sub new {
	bless {}, __PACKAGE__;
	}

	sub DESTROY {
	eval {};
	}

	package main;

	eval {
	my $obj = Object->new;
	die "foo";
	};
	if (my $e = $@) {
	warn $e;
	}