X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FObject%2FRemote%2FMiniLoop.pm;h=cf572d69d62eaa9c29d93f7274c4ddc0ffb0f9bf;hb=ecbca5dea77bef08e032b491bbf184f2ad2f3284;hp=463ca79515b4f572f8ad63084d4d6f8bc590b1df;hpb=37efeb68748dd589455d8ae58d39e74700abdd67;p=scpubgit%2FObject-Remote.git diff --git a/lib/Object/Remote/MiniLoop.pm b/lib/Object/Remote/MiniLoop.pm index 463ca79..cf572d6 100644 --- a/lib/Object/Remote/MiniLoop.pm +++ b/lib/Object/Remote/MiniLoop.pm @@ -2,9 +2,11 @@ package Object::Remote::MiniLoop; use IO::Select; use Time::HiRes qw(time); -use Object::Remote::Logging qw( :log :dlog ); +use Object::Remote::Logging qw( :log :dlog router ); use Moo; +BEGIN { router()->exclude_forwarding } + # this is ro because we only actually set it using local in sub run has is_running => (is => 'ro', clearer => 'stop'); #maximum duration that select() will block - undef means indefinite, @@ -107,7 +109,7 @@ sub watch_time { sub unwatch_time { my ($self, $id) = @_; - log_debug { "Removing timer with id of '$id'" }; + log_trace { "Removing timer with id of '$id'" }; @$_ = grep !($_ eq $id), @$_ for $self->_timers; return; }