use C4::SIP::Sip::MsgType qw( handle login_core );
use Koha::Logger;
use C4::SIP::Trapper;
tie *STDERR, "C4::SIP::Trapper";
use base qw(Net::Server::PreFork);
-
package C4::SIP::Trapper;
use Modern::Perl;
sub TIEHANDLE {
my $class = shift;
bless [], $class;
}
sub PRINT {
my $self = shift;
$Log::Log4perl::caller_depth++;
my $logger = Koha::Logger->get({ interface => 'sip', category => 'STDERR' });
warn @_;
$logger->error(@_);
$Log::Log4perl::caller_depth--;
1;