X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FObject-Remote.git;a=blobdiff_plain;f=lib%2FObject%2FRemote%2FHandle.pm;h=782ddf678819721ac07f89b90e2167719f84bbd6;hp=e68aae9c119fa83ae63f1088a12e006045d92353;hb=bef36e73e4257b2ba8e59eb55661ffc51d8a620a;hpb=82ef4e4bbc6e05ab1f8fe2a71374907f16fb947a diff --git a/lib/Object/Remote/Handle.pm b/lib/Object/Remote/Handle.pm index e68aae9..782ddf6 100644 --- a/lib/Object/Remote/Handle.pm +++ b/lib/Object/Remote/Handle.pm @@ -4,10 +4,6 @@ use Object::Remote::Proxy; use Scalar::Util qw(weaken blessed); use Object::Remote::Logging qw ( :log :dlog router ); use Object::Remote::Future; -#must find way to exclude certain log events -#from being forwarded - log events generated in -#response to log events cause exploding -#use Object::Remote::Logging qw(:log); use Module::Runtime qw(use_module); use Moo; @@ -59,12 +55,12 @@ sub call { my ($self, $method, @args) = @_; my $w = wantarray; my $id = $self->id; - + $method = "start::${method}" if (caller(0)||'') eq 'start'; log_trace { "call('$method') has been invoked on remote handle '$id'; creating future" }; future { - log_debug { "Invoking send on connection for handle '$id' method $method" }; + log_debug { "Invoking send on connection for handle '$id' method '$method'" }; $self->connection->send(call => $id, $w, $method, @args) }; }