X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FObject%2FRemote%2FLogging%2FRouter.pm;h=cd1de379108345965ed3655aaf744f4833bb94f1;hb=HEAD;hp=46b6da79e02190e2ff9c1959a2041d931282a4fa;hpb=a663aea54e2f4167d60dad19083cc7a078cfd04b;p=scpubgit%2FObject-Remote.git

diff --git a/lib/Object/Remote/Logging/Router.pm b/lib/Object/Remote/Logging/Router.pm
index 46b6da7..cd1de37 100644
--- a/lib/Object/Remote/Logging/Router.pm
+++ b/lib/Object/Remote/Logging/Router.pm
@@ -17,7 +17,7 @@ sub after_import { }
 sub _get_loggers {
   my ($self, %metadata) = @_;
   my $package = $metadata{caller_package};
-  my $level = $metadata{log_level};
+  my $level = $metadata{message_level};
   my $is_level = "is_$level";
   my $need_clean = 0;
   my @loggers;
@@ -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
@@ -62,8 +62,8 @@ sub _deliver_message {
   my @loggers = $self->_get_loggers(%message_info);
   my $generator = $message_info{message_sub};
   my $args = $message_info{message_args};
-  my $level = $message_info{log_level};
-  
+  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);
@@ -74,7 +74,7 @@ sub _deliver_message {
 
 sub handle_log_request {
   my ($self, %message_info) = @_;
-  my $level = $message_info{log_level};
+  my $level = $message_info{message_level};
   my $package = $message_info{caller_package};
   my $need_clean = 0;
 
@@ -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 };