1 package Object::Remote::Role::LogForwarder;
6 has _forward_destination => ( is => 'rw' );
7 has enable_forward => ( is => 'rw', default => sub { 1 } );
8 has _forward_stop => ( is => 'ro', required => 1, default => sub { {} } );
10 around _get_loggers => sub {
11 my ($orig, $self, %metadata) = @_;
12 my $package = $metadata{package};
13 my %clone = %metadata;
17 local($reentrant) = 1;
19 my @loggers = $orig->($self, %clone);
21 if (! $self->enable_forward || $self->_forward_stop->{$package}) {
22 #warn "will not forward log events for '$package'";
26 my $forward_to = $self->_forward_destination;
29 push(@loggers, $forward_to->_get_loggers(%clone));
35 sub exclude_forwarding {
36 my ($self, $package) = @_;
37 $package = caller unless defined $package;
38 $self->_forward_stop->{$package} = 1;