X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FObject-Remote.git;a=blobdiff_plain;f=lib%2FObject%2FRemote%2FMiniLoop.pm;h=ab8e85a1fdb9751b7b5a9213340ac112ba6e2cc4;hp=5be3100fa29a1c075c937ef77ea0da0e84f7c92d;hb=8d757beb3bd870615c5a5b3076f7dc72ae9cc637;hpb=353556c4b81bcb3a0c3fff934eff5ab2f19733d4 diff --git a/lib/Object/Remote/MiniLoop.pm b/lib/Object/Remote/MiniLoop.pm index 5be3100..ab8e85a 100644 --- a/lib/Object/Remote/MiniLoop.pm +++ b/lib/Object/Remote/MiniLoop.pm @@ -6,7 +6,6 @@ use Object::Remote::Logging qw( :log :dlog ); use Moo; # 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, #0 means no blocking, otherwise maximum time in seconds @@ -93,9 +92,9 @@ sub watch_time { } elsif (exists($watch{after})) { $at = time() + $watch{after}; } elsif (exists($watch{at})) { - $at = $watch{at}; + $at = $watch{at}; } else { - die "watch_time requires every, after or at"; + die "watch_time requires every, after or at"; } die "watch_time requires code" unless my $code = $watch{code}; @@ -108,7 +107,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; }