C4/SIP/Trapper.pm

   1 package C4::SIP::Trapper;
   2
   3 use Modern::Perl;
   4
   5 use Koha::Logger;
   6
   7 sub TIEHANDLE {
   8     my $class = shift;
   9     bless [], $class;
  10 }
  11
  12 sub PRINT {
  13     my $self = shift;
  14     $Log::Log4perl::caller_depth++;
  15     my $logger =
  16       Koha::Logger->get( { interface => 'sip', category => 'STDERR' } );
  17     warn @_;
  18     $logger->error(@_);
  19     $Log::Log4perl::caller_depth--;
  20 }
  21
  22 1;