1 package Object::Remote::Logging;
4 use Scalar::Util qw(blessed);
5 use Object::Remote::Logging::Logger;
7 extends 'Log::Contextual';
10 our $Router_Instance ||= do {
11 require Object::Remote::Logging::Router;
12 Object::Remote::Logging::Router->new;
16 #log level descriptions
17 #info - standard log level - normal program output for the end user
18 #warn - output for program that is executing quietly
19 #error - output for program that is running more quietly
20 #fatal - it is not possible to continue execution; this level is as quiet as is possible
21 #verbose - output for program executing verbosely (-v)
22 #debug - output for program running more verbosely (-v -v)
23 #trace - output for program running extremely verbosely (-v -v -v)
25 #the order of the log levels is significant with the
26 #most verbose level being first in the list and the
27 #most quiet as the last item
28 return [qw( trace debug verbose info warn error fatal )];
31 #this is invoked on all nodes
33 my $level = $ENV{OBJECT_REMOTE_LOG_LEVEL};
34 return unless defined $level;
35 my $logger = Object::Remote::Logging::Logger->new(
36 min_level => lc($level),
37 level_names => Object::Remote::Logging::arg_levels(),
40 #TODO check on speed of string compare against a hash with a single key
41 router()->connect(sub {
42 return unless $_[1]->{controller} eq __PACKAGE__;
43 #skip things from remote hosts because they log to STDERR
44 #when OBJECT_REMOTE_LOG_LEVEL is in effect
45 return if $_[1]->{remote}->{connection_id};
50 #this is invoked by the controlling node
52 sub init_logging_forwarding {
53 my ($self, %controller_info) = @_;
55 router()->_remote_metadata({ connection_id => $controller_info{connection_id} });
56 router()->_forward_destination($controller_info{router});