[ViewVC] Diff of: cvs/Coro/Event/Event.pm

Comparing Coro/Event/Event.pm (file contents):
Revision 1.38 by root, Mon Nov 20 20:14:02 2006 UTC vs.
Revision 1.41 by root, Fri Dec 1 02:17:37 2006 UTC

 use Carp;
 no warnings;
 use Coro;
+use Coro::Timer;
 use Event qw(loop unloop); # we are re-exporting this, cooool!
 use XSLoader;
 use base Exporter::;
-our @EXPORT = qw(loop unloop sweep reschedule);
+our @EXPORT = qw(loop unloop sweep);
 BEGIN {
    our $VERSION = 1.9;
    local $^W = 0; # avoid redefine warning for Coro::ready;
 }
 # double calls to avoid stack-cloning ;()
 # is about 10% slower, though.
 sub next($) {
-   &Coro::schedule if &_next; $_[0];
+   &Coro::schedule while &_next;
+   $_[0]
 }
 sub Coro::Event::w    { $_[0] }
 sub Coro::Event::prio { $_[0]{Coro::Event}[3] }
 sub Coro::Event::hits { $_[0]{Coro::Event}[4] }
 Same as Event::unloop (provided here for your convinience only).
 =cut
-$Coro::idle = new Coro sub {
+$Coro::idle = \&Event::one_event; # inefficient
-   while () {
-      Coro::schedule;
-      Event::one_event; # inefficient
-   }
-};
-# provide hooks for Coro::Timer
-package Coro::Timer;
-unless ($override) {
-   $override = 1;
-   *_new_timer = sub {
-      Event->timer(at => $_[0], cb => $_[1]);
-   };
-}
 1;
 =back

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