ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/Coro/Event/Event.pm
(Generate patch)

Comparing Coro/Event/Event.pm (file contents):
Revision 1.4 by root, Fri Aug 17 04:08:58 2001 UTC vs.
Revision 1.5 by root, Sat Aug 18 02:58:38 2001 UTC

… …
47use Coro; 47use Coro;
48use Event qw(unloop); # we are re-exporting this, cooool! 48use Event qw(unloop); # we are re-exporting this, cooool!
49 49
50use base 'Exporter'; 50use base 'Exporter';
51 51
52@EXPORT = qw(loop unloop sweep); 52@EXPORT = qw(loop unloop sweep reschedule);
53 53
54BEGIN { 54BEGIN {
55 $VERSION = 0.45; 55 $VERSION = 0.45;
56 56
57 require XSLoader; 57 require XSLoader;
… …
119sub next($) { 119sub next($) {
120 &Coro::schedule if &_next; $_[0]; 120 &Coro::schedule if &_next; $_[0];
121} 121}
122 122
123sub Coro::Event::w { $_[0] } 123sub Coro::Event::w { $_[0] }
124sub Coro::Event::prio { $_[0]{Coro::Event}[3] }
125sub Coro::Event::hits { $_[0]{Coro::Event}[4] }
124sub Coro::Event::got { $_[0]{Coro::Event}[3] } 126sub Coro::Event::got { $_[0]{Coro::Event}[5] }
125sub Coro::Event::prio { croak "prio not supported yet, please mail to pcg\@goof.com" }
126sub Coro::Event::hits { croak "hits not supported yet, please mail to pcg\@goof.com" }
127 127
128=item sweep 128=item sweep
129 129
130Similar to Event::one_event and Event::sweep: The idle task is called once 130Similar to Event::one_event and Event::sweep: The idle task is called once
131(this has the effect of jumping back into the Event loop once to serve new 131(this has the effect of jumping back into the Event loop once to serve new

Diff Legend

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