[scpubgit/Object-Remote.git] / lib / Object / Remote / Logging.pm

package Object::Remote::Logging;

use strictures 1;

use Log::Contextual::Routed qw( :log );
use base qw(Log::Contextual::Routed); 

sub get_parent_router { $_[0]->SUPER::get_parent_router }

use Data::Dumper; 

sub init_node { my $n = `hostname`; chomp($n); $_[0]->add_child_router("[node $n]", __PACKAGE__->get_root_router) }

1;
Commit	Line	Data
5e2b2229	1	package Object::Remote::Logging;
	2
	3	use strictures 1;
	4
	5	use Log::Contextual::Routed qw( :log );
	6	use base qw(Log::Contextual::Routed);
	7
	8	sub get_parent_router { $_[0]->SUPER::get_parent_router }
	9
	10	use Data::Dumper;
	11
	12	sub init_node { my $n = `hostname`; chomp($n); $_[0]->add_child_router("[node $n]", __PACKAGE__->get_root_router) }
	13
	14	1;
	15