X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FObject-Remote.git;a=blobdiff_plain;f=lib%2FObject%2FRemote%2FLogging%2FLogAnyInjector.pm;h=b209d3865aab4383b5560894781a3f99e5317b56;hp=572979d5e19642fbe466e6c6bcbb2f60ea065365;hb=55c0d0209fa9d9265ff178f54ae9fe5fdddef3c1;hpb=5ccce2d5c1fb651f83c73c811069003e4a591a53 diff --git a/lib/Object/Remote/Logging/LogAnyInjector.pm b/lib/Object/Remote/Logging/LogAnyInjector.pm index 572979d..b209d38 100644 --- a/lib/Object/Remote/Logging/LogAnyInjector.pm +++ b/lib/Object/Remote/Logging/LogAnyInjector.pm @@ -24,13 +24,13 @@ sub AUTOLOAD { my $generator; my $log_contextual_level; our %LEVEL_NAME_MAP; - + #just a proof of concept - support for the is_ methods can #be done but requires modifications to the router return 1 if $log_level =~ m/^is_/; #skip DESTROY and friends return if $log_level =~ m/^[A-Z]+$/; - + if ($log_contextual_level = $LEVEL_NAME_MAP{$log_level}) { $generator = sub { @content }; } elsif(($log_level =~ s/f$//) && ($log_contextual_level = $LEVEL_NAME_MAP{$log_level})) { @@ -39,14 +39,14 @@ sub AUTOLOAD { } else { croak "invalid log level: $log_level"; } - + router->handle_log_request({ - controller => 'Log::Any', + controller => 'Log::Any', package => scalar(caller), caller_level => 1, level => $log_contextual_level, }, $generator); - + return; }