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;
$self->_clean_connections if $need_clean;
- return @loggers;
+ return @loggers;
}
#overloadable so a router can invoke a logger
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);
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;
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};
sub connect {
my ($self, $destination, $is_weak) = @_;
- my $wrapped;
+ my $wrapped;
if (ref($destination) ne 'CODE') {
$wrapped = sub { $destination };