cleanup trailing whitespace ugliness

[scpubgit/Object-Remote.git] / lib / Object / Remote / Logging / Router.pm

diff --git a/lib/Object/Remote/Logging/Router.pm b/lib/Object/Remote/Logging/Router.pm
index 46b6da7..cd1de37 100644 (file)
--- 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 };