Imported Upstream version 0.60

3 files changed, 8 insertions, 7 deletions

diff --git a/lib/IO/Async/Timer/Absolute.pm b/lib/IO/Async/Timer/Absolute.pm
index 713ece5..d8ec29c 100644
--- a/lib/IO/Async/Timer/Absolute.pm
+++ b/lib/IO/Async/Timer/Absolute.pm
@@ -9,7 +9,7 @@ use strict;
 use warnings;
 use base qw( IO::Async::Timer );
 
-our $VERSION = '0.51';
+our $VERSION = '0.60';
 
 use Carp;
 
@@ -122,7 +122,7 @@ sub _make_cb
    my $self = shift;
 
    return $self->_capture_weakself( sub {
-      my ( $self ) = @_;
+      my $self = shift or return;
 
       undef $self->{id};
 
diff --git a/lib/IO/Async/Timer/Countdown.pm b/lib/IO/Async/Timer/Countdown.pm
index c47a178..f747711 100644
--- a/lib/IO/Async/Timer/Countdown.pm
+++ b/lib/IO/Async/Timer/Countdown.pm
@@ -9,7 +9,7 @@ use strict;
 use warnings;
 use base qw( IO::Async::Timer );
 
-our $VERSION = '0.51';
+our $VERSION = '0.60';
 
 use Carp;
 
@@ -146,7 +146,7 @@ sub _make_cb
    my $self = shift;
 
    return $self->_capture_weakself( sub {
-      my ( $self ) = @_;
+      my $self = shift or return;
 
       undef $self->{id};
       $self->{expired} = 1;
diff --git a/lib/IO/Async/Timer/Periodic.pm b/lib/IO/Async/Timer/Periodic.pm
index 8a9317d..ff645e0 100644
--- a/lib/IO/Async/Timer/Periodic.pm
+++ b/lib/IO/Async/Timer/Periodic.pm
@@ -9,7 +9,7 @@ use strict;
 use warnings;
 use base qw( IO::Async::Timer );
 
-our $VERSION = '0.51';
+our $VERSION = '0.60';
 
 use Carp;
 
@@ -221,7 +221,7 @@ sub _make_cb
    my $self = shift;
 
    return $self->_capture_weakself( sub {
-      my $self = shift;
+      my $self = shift or return;
 
       undef $self->{first_interval};
 
@@ -229,7 +229,8 @@ sub _make_cb
 
       $self->invoke_event( on_tick => );
 
-      $self->start;
+      # detect ->stop
+      $self->start if defined $self->{next_time};
    } );
 }