X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FObject-Remote.git;a=blobdiff_plain;f=lib%2FObject%2FRemote%2FRole%2FLogForwarder.pm;h=5be68513692e1b0736e016cec7d3d60470087d88;hp=4a4f4afe0cb94e85e91de87f315c2a905a96b957;hb=6536ccd3af048ed71845cc5ea453855f45e66971;hpb=5d59cb9859e004df5cde5d83aa7230e621a28b95 diff --git a/lib/Object/Remote/Role/LogForwarder.pm b/lib/Object/Remote/Role/LogForwarder.pm index 4a4f4af..5be6851 100644 --- a/lib/Object/Remote/Role/LogForwarder.pm +++ b/lib/Object/Remote/Role/LogForwarder.pm @@ -1,7 +1,10 @@ +#This is an experimental method for working with +#Log::Contextual crossing Object::Remote connections +#transparently + package Object::Remote::Role::LogForwarder; use Moo::Role; -use Object::Remote::Logging; use Scalar::Util qw(weaken); use Carp qw(cluck); @@ -28,8 +31,8 @@ sub describe { $depth++; my $buf = "\t" x $depth . $self->description . "\n"; foreach my $child (@{$self->child_routers}) { - next unless defined $child; - $buf .= $child->describe($depth); + next unless defined $child; + $buf .= $child->describe($depth); } return $buf; @@ -38,16 +41,18 @@ sub describe { sub add_child_router { my ($self, $router) = @_; push(@{ $self->child_routers }, $router); + #TODO re-weaken when object::remote proxied + #weak references is figured out # weaken(${ $self->child_routers }[-1]); return; } #sub remove_child_router { -# my ($self, $description) = @_; -# return delete $self->child_routers->{$description}; +# my ($self, $description) = @_; +# return delete $self->child_routers->{$description}; #} -after handle_log_message => sub { +after get_loggers => sub { my ($self, @args) = @_; my $parent = $self->parent_router;