package Object::Remote::Logging::Router;
use Moo;
+use Scalar::Util qw(weaken);
with 'Log::Contextual::Role::Router';
with 'Object::Remote::Role::LogForwarder';
@caller_info = caller($caller_level + 1);
$metadata{method} = $caller_info[3];
- $metadata{method} =~ s/^${package}:://;
+ $metadata{method} =~ s/^${package}::// if defined $metadata{method};
foreach my $logger ($self->_get_loggers(%metadata)) {
$logger->$level([ $generator->(@args) ], \%metadata);
}
push(@{$self->_connections}, $wrapped);
+ weaken($self->_connections->[-1]);
}
sub _clean_connections {