Commit | Line | Data |
---|---|---|
36800dd7 | 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; | |
5 | ||
6 | 1; | |
7 | ||
8 | __END__ | |
9 | ||
10 | =head1 NAME | |
11 | ||
12 | Log::Contextual::Log4perl - wrapper to fix callstack for Log::Log4perl::Logger | |
13 | ||
14 | =cut | |
15 |