package Xxx;

sub xxx {
	my $xxx = eval { die 'xxx' };
}

package main;

*Xxx::eval = sub(&) {
	warn "You should die";
	$_[0]->();
};

Xxx::xxx();