X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FObject-Remote.git;a=blobdiff_plain;f=lib%2FObject%2FRemote%2FLogging%2FRouter.pm;h=cd1de379108345965ed3655aaf744f4833bb94f1;hp=15bd2519c12dea76badb965ae63f30010e4d7234;hb=55c0d0209fa9d9265ff178f54ae9fe5fdddef3c1;hpb=5ccce2d5c1fb651f83c73c811069003e4a591a53 diff --git a/lib/Object/Remote/Logging/Router.pm b/lib/Object/Remote/Logging/Router.pm index 15bd251..cd1de37 100644 --- a/lib/Object/Remote/Logging/Router.pm +++ b/lib/Object/Remote/Logging/Router.pm @@ -37,7 +37,7 @@ sub _get_loggers { $self->_clean_connections if $need_clean; - return @loggers; + return @loggers; } #overloadable so a router can invoke a logger @@ -63,7 +63,7 @@ sub _deliver_message { my $generator = $message_info{message_sub}; my $args = $message_info{message_args}; my $level = $message_info{message_level}; - + return unless @loggers > 0; #this is the point where the user provided log message code block is executed my @content = $generator->(@$args); @@ -89,7 +89,7 @@ sub handle_log_request { my @caller_info = caller($caller_level); $message_info{filename} = $caller_info[1]; $message_info{line} = $caller_info[2]; - + @caller_info = caller($caller_level + 1); $message_info{method} = $caller_info[3]; $message_info{method} =~ s/^${package}::// if defined $message_info{method}; @@ -99,7 +99,7 @@ sub handle_log_request { sub connect { my ($self, $destination, $is_weak) = @_; - my $wrapped; + my $wrapped; if (ref($destination) ne 'CODE') { $wrapped = sub { $destination };