lib/Object/Remote/Role/LogForwarder.pm

   1 package Object::Remote::Role::LogForwarder;
   2
   3 use Moo::Role;
   4 use Object::Remote::Logging;
   5 use Scalar::Util qw(weaken);
   6 use Carp qw(cluck);
   7
   8 with 'Log::Contextual::Role::Router';
   9
  10 #TODO re-weaken router references when object::remote
  11 #weak reference operation is figured out
  12
  13 has child_routers => ( is => 'ro', required => 1, default => sub { [] } );
  14 has parent_router => ( is => 'rw', );#weak_ref => 1 );
  15
  16 sub BUILD { }
  17
  18 after BUILD => sub {
  19     my ($self) = @_;
  20 #    my $parent = $self->parent_router;
  21 #    return unless defined $parent ;
  22 #    $parent->add_child_router($self);
  23 };
  24
  25 sub describe {
  26     my ($self, $depth) = @_;
  27     $depth = -1 unless defined $depth;
  28     $depth++;
  29     my $buf = "\t" x $depth . $self->description . "\n";
  30     foreach my $child (@{$self->child_routers}) {
  31         next unless defined $child;
  32         $buf .= $child->describe($depth);
  33     }
  34
  35     return $buf;
  36 }
  37
  38 sub add_child_router {
  39    my ($self, $router) = @_;
  40    push(@{ $self->child_routers }, $router);
  41 #   weaken(${ $self->child_routers }[-1]);
  42    return;
  43 }
  44
  45 #sub remove_child_router {
  46 #   my ($self, $description) = @_;
  47 #   return delete $self->child_routers->{$description};
  48 #}
  49
  50 after handle_log_message => sub {
  51    my ($self, @args) = @_;
  52    my $parent = $self->parent_router;
  53
  54    return unless defined $parent;
  55    $parent->handle_log_message(@args);
  56 };
  57
  58 1;