Changeset 8d16e58 for perl/lib/BarnOwl/Timer.pm

Timestamp:

May 17, 2010, 9:44:01 PM (14 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, release-1.10, release-1.7, release-1.8, release-1.9

Children:

bacf674

Parents:

d544237

git-author:

Nelson Elhage <nelhage@mit.edu> (05/16/10 11:51:25)

git-committer:

Nelson Elhage <nelhage@mit.edu> (05/17/10 21:44:01)

Message:

Allow explicitly cancelling timers from perl.

File:

• perl/lib/BarnOwl/Timer.pm (modified) (2 diffs)

perl/lib/BarnOwl/Timer.pm

@@ -21 +21 @@
 }
 
+sub stop {
+    my $self = shift;
+    if(defined($self->{timer})) {
+        BarnOwl::Internal::remove_timer($self->{timer});
+        undef $self->{timer};
+    }
+}
+
 sub do_callback {
     my $self = shift;
@@ -28 +36 @@
 sub DESTROY {
     my $self = shift;
-    if(defined($self->{timer})) {
-        BarnOwl::Internal::remove_timer($self->{timer});
-    }
+    $self->stop;
 }