lib/Log/Contextual/Log4perl.pm

   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