package Foo;

local $SIG{__DIE__} = sub { print "Caught in " . __PACKAGE };

sub _die { die };


1;