X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FObject-Remote.git;a=blobdiff_plain;f=lib%2FObject%2FRemote%2FFuture.pm;h=4b4e0725ec451fbc4cdafba065be99e276892177;hp=c54a8a970fde1f1ffc494c7c0e177450183a8056;hb=8c3529062a426181861d58ee59fb8f10e0be68e5;hpb=9d64d2d9b2401f99b747ecf754384adb661f0a5b diff --git a/lib/Object/Remote/Future.pm b/lib/Object/Remote/Future.pm index c54a8a9..4b4e072 100644 --- a/lib/Object/Remote/Future.pm +++ b/lib/Object/Remote/Future.pm @@ -4,7 +4,9 @@ use strict; use warnings; use base qw(Exporter); -use Object::Remote::Logging qw( :log ); +use Object::Remote::Logging qw( :log router ); + +BEGIN { router()->exclude_forwarding } use CPS::Future; @@ -29,15 +31,15 @@ sub await_future { $f->on_ready(sub { log_trace { my $l = @await; "future has become ready, length of \@await: '$l'" }; if ($f == $await[-1]) { - log_debug { "This future is not waiting on anything so calling stop on the run loop" }; + log_trace { "This future is not waiting on anything so calling stop on the run loop" }; $loop->stop; } }); - log_debug { "Starting run loop for newly created future" }; + log_trace { "Starting run loop for newly created future" }; $loop->run; } if (@await and $await[-1]->is_ready) { - log_debug { "Last future in await list was ready, stopping run loop" }; + log_trace { "Last future in await list was ready, stopping run loop" }; $loop->stop; } log_trace { "await_future() returning" };