X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FObject-Remote.git;a=blobdiff_plain;f=lib%2FObject%2FRemote%2FLogging.pm;h=15f4d97bba0146142fa496867f5ada2b653e2de9;hp=4571c0a2e058f0d4a55f2563b78307294f80e77b;hb=977ec25d052fe4f70ebab44b159bb6dc11ce4240;hpb=f21d2f9042fbad3e958979f4db37f051b3c50998 diff --git a/lib/Object/Remote/Logging.pm b/lib/Object/Remote/Logging.pm index 4571c0a..15f4d97 100644 --- a/lib/Object/Remote/Logging.pm +++ b/lib/Object/Remote/Logging.pm @@ -4,7 +4,6 @@ use Moo; use Scalar::Util qw(blessed); use Object::Remote::Logging::Logger; use Exporter::Declare; -use Carp qw(carp croak); extends 'Log::Contextual'; @@ -106,16 +105,17 @@ sub init_logging { ); router()->connect(sub { - my $controller = $_[1]->{controller}; + my $controller = $_[1]->{exporter}; my $will_log = $controller_should_log{$controller}; + my $remote_info = $_[1]->{object_remote}; $will_log = $controller_should_log{'*'} unless defined $will_log; return unless $will_log; #skip things from remote hosts because they log to STDERR #when OBJECT_REMOTE_LOG_LEVEL is in effect - return if $_[1]->{remote}->{object_remote}; - $logger + return if $remote_info->{forwarded}; + return $logger; }); }