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

Comparing AnyEvent/lib/AnyEvent.pm (file contents):
Revision 1.108 by root, Sat May 10 00:22:02 2008 UTC vs.
Revision 1.109 by root, Sat May 10 00:45:18 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 }
+Arranges for the code block to be executed as soon as the event model is
+autodetected (or immediately if this has already happened).
-=item @AnyEvent::detect
+=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
 the event loop has been chosen.
 You should check C<$AnyEvent::MODEL> before adding to this array, though:
 if it contains a true value then the event loop has already been detected,
 and the array will be ignored.
+Best use C<AnyEvent::on_detect { BLOCK }> instead.
 =back
 =head1 WHAT TO DO IN A MODULE
    [POE::Kernel::          => AnyEvent::Impl::POE::],      # lasciate ogni speranza
 );
 our %method = map +($_ => 1), qw(io timer signal child condvar one_event DESTROY);
-our @detect;
+our @on_detect;
+sub on_detect(&) {
+   if ($MODEL) {
+      $_[0]->();
+   } else {
+      push @on_detect, $_[0];
+   }
+}
 sub detect() {
    unless ($MODEL) {
       no strict 'refs';
       }
       unshift @ISA, $MODEL;
       push @{"$MODEL\::ISA"}, "AnyEvent::Base";
-      (shift @detect)->() while @detect;
+      (shift @on_detect)->() while @on_detect;
    }
    $MODEL
 }

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