From: Tyler Riddle Date: Tue, 15 Jan 2013 01:37:01 +0000 (-0800) Subject: fixed old logging metadata name missed from previous update X-Git-Tag: v0.003001_01~18 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=977ec25d052fe4f70ebab44b159bb6dc11ce4240;p=scpubgit%2FObject-Remote.git fixed old logging metadata name missed from previous update --- diff --git a/lib/Object/Remote/Logging.pm b/lib/Object/Remote/Logging.pm index 1075016..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,7 +105,7 @@ 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}; diff --git a/lib/Object/Remote/Logging/Logger.pm b/lib/Object/Remote/Logging/Logger.pm index 9f79d7b..2cc4e8d 100644 --- a/lib/Object/Remote/Logging/Logger.pm +++ b/lib/Object/Remote/Logging/Logger.pm @@ -162,7 +162,7 @@ Object::Remote::Logging::Logger - Format and output a log message #objects that will receive the messages my $selector = sub { my ($generating_package, $metadata) = @_; - return unless $metadata->{controller} eq 'App::Logging::Subclass'; + return unless $metadata->{exporter} eq 'App::Logging::Subclass'; return $app_output; };