Commit | Line | Data |
---|---|---|
5e2b2229 | 1 | package Object::Remote::Logging; |
2 | ||
3 | use strictures 1; | |
4 | ||
f7ea4120 | 5 | use Log::Contextual qw( :log ); |
6 | use Object::Remote::LogRouter; | |
5e2b2229 | 7 | |
f7ea4120 | 8 | use base qw(Log::Contextual); |
5e2b2229 | 9 | |
f7ea4120 | 10 | sub arg_router { return $_[1] if defined $_[1]; our $Router_Instance ||= Object::Remote::LogRouter->new } |
5e2b2229 | 11 | |
f7ea4120 | 12 | sub init_node { my $n = `hostname`; chomp($n); $_[0]->add_child_router("[node $n]", __PACKAGE__->arg_router) } |
5e2b2229 | 13 | |
14 | 1; | |
15 |