Here's a trick for Log4perl. You could put a LOGCONFESS() in the warn/die handlers instead if you need a stack trace:

use Log::Log4perl qw(:easy);
Log::Log4perl->easy_init($DEBUG);

$SIG{__DIE__} = sub {
    $Log::Log4perl::caller_depth++;
    LOGCONFESS @_;
};

Foo::badsub();

package Foo;

sub badsub {
    die "Argh!!";
}
[download]