[ViewVC] Diff of: cvs/AnyEvent/lib/AnyEvent.pm

Comparing AnyEvent/lib/AnyEvent.pm (file contents):
Revision 1.109 by root, Sat May 10 00:45:18 2008 UTC vs.
Revision 1.110 by root, Sat May 10 00:57:31 2008 UTC

 Returns C<$AnyEvent::MODEL>, forcing autodetection of the event model
 if necessary. You should only call this function right before you would
 have created an AnyEvent watcher anyway, that is, as late as possible at
 runtime.
-=item AnyEvent::on_detect { BLOCK }
+=item $guard = AnyEvent::on_detect { BLOCK }
 Arranges for the code block to be executed as soon as the event model is
 autodetected (or immediately if this has already happened).
+If called in scalar or list context, then it creates and returns an object
+that automatically removes the callback again when it is destroyed.
 =item @AnyEvent::on_detect
 If there are any code references in this array (you can C<push> to it
 before or after loading AnyEvent), then they will called directly after
 our %method = map +($_ => 1), qw(io timer signal child condvar one_event DESTROY);
 our @on_detect;
 sub on_detect(&) {
+   my ($cb) = @_;
    if ($MODEL) {
-      $_[0]->();
+      $cb->();
+      1
    } else {
-      push @on_detect, $_[0];
+      push @on_detect, $cb;
+      defined wantarray
+         ? bless \$cb, "AnyEvent::Util::Guard"
+         : ()
    }
+}
+sub AnyEvent::Util::Guard::DESTROY {
+   @on_detect = grep $_ != ${$_[0]}, @on_detect;
 }
 sub detect() {
    unless ($MODEL) {
       no strict 'refs';

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines