my %controller_should_log;
unless (defined $ENV{OBJECT_REMOTE_LOG_FORWARDING} && $ENV{OBJECT_REMOTE_LOG_FORWARDING} ne '') {
- $ENV{OBJECT_REMOTE_LOG_FORWARDING} = 1;
+ $ENV{OBJECT_REMOTE_LOG_FORWARDING} = 0;
}
if ($test_logging) {
router()->connect(sub {
my $controller = $_[1]->{controller};
my $will_log = $controller_should_log{$controller};
+ my $remote_info = $_[1]->{object_remote};
$will_log = $controller_should_log{'*'} unless defined $will_log;
return unless $will_log;
#skip things from remote hosts because they log to STDERR
#when OBJECT_REMOTE_LOG_LEVEL is in effect
- return if $_[1]->{remote}->{object_remote};
- $logger
+ return if $remote_info->{forwarded};
+ return $logger;
});
}
Sub-classes of Object::Remote::Logging will have log messages forwarded automatically.
Loggers receive forwarded log messages exactly the same way as non-forwarded messages
except a forwarded message includes extra metadata about the remote interpreter. Log
-forwarding is enabled by default but comes with a performance hit; to disable it set the
-OBJECT_REMOTE_LOG_FORWARDING environment variable to 0. See L<Object::Remote::Logging::Router>.
+forwarding is disabled by default because it comes with a performance hit; to enable
+it set the OBJECT_REMOTE_LOG_FORWARDING environment variable to 1.
=head1 EXPORTABLE SUBROUTINES