use Log::Log4perl qw(:easy);

Log::Log4perl->easy_init(
    { level  => $DEBUG,
      layout => "%M: %m%n",
    });

foo();

sub foo {
    eval {
        local $Log::Log4perl::caller_depth =
            $Log::Log4perl::caller_depth + 1;
        DEBUG("I'm here!");
    };
}