lib/Object/Remote/Logging.pm

   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