| … | |
… | |
| 38 | |
38 | |
| 39 | =cut |
39 | =cut |
| 40 | |
40 | |
| 41 | package Coro::Event; |
41 | package Coro::Event; |
| 42 | |
42 | |
| 43 | no warnings; |
43 | no warnings qw(uninitialized); |
| 44 | |
44 | |
| 45 | use Carp; |
45 | use Carp; |
| 46 | |
46 | |
| 47 | use Coro; |
47 | use Coro; |
| 48 | use Event qw(unloop); # we are re-exporting this, cooool! |
48 | use Event qw(unloop); # we are re-exporting this, cooool! |
| … | |
… | |
| 52 | @EXPORT = qw(loop unloop sweep reschedule); |
52 | @EXPORT = qw(loop unloop sweep reschedule); |
| 53 | |
53 | |
| 54 | BEGIN { |
54 | BEGIN { |
| 55 | $VERSION = 0.45; |
55 | $VERSION = 0.45; |
| 56 | |
56 | |
|
|
57 | local $^W = 0; # avoid redefine warning for Coro::ready |
| 57 | require XSLoader; |
58 | require XSLoader; |
| 58 | XSLoader::load Coro::Event, $VERSION; |
59 | XSLoader::load Coro::Event, $VERSION; |
| 59 | } |
60 | } |
| 60 | |
61 | |
| 61 | =item $w = Coro::Event->flavour(args...) |
62 | =item $w = Coro::Event->flavour(args...) |
| … | |
… | |
| 137 | into the Event dispatcher. |
138 | into the Event dispatcher. |
| 138 | |
139 | |
| 139 | =cut |
140 | =cut |
| 140 | |
141 | |
| 141 | sub sweep { |
142 | sub sweep { |
| 142 | one_event(0); # for now |
143 | Event::one_event(0); # for now |
| 143 | } |
144 | } |
| 144 | |
145 | |
| 145 | =item $result = loop([$timeout]) |
146 | =item $result = loop([$timeout]) |
| 146 | |
147 | |
| 147 | This is the version of C<loop> you should use instead of C<Event::loop> |
148 | This is the version of C<loop> you should use instead of C<Event::loop> |
