1 # make wrapper for Log::Log4perl that fixes callstack:
2 # < mst> sub debug { local $Log::Log4perl::caller_depth =
3 # $Log::Log4perl::caller_depth + 3; shift->{l4p}->debug(@_) }
4 package Log::Contextual::Log4perl;
12 Log::Contextual::Log4perl - wrapper to fix callstack for Log::Log4perl::Logger