… | … | ||
---|---|---|---|
177 | Event::one_event; # inefficient | 177 | Event::one_event; # inefficient |
178 | Coro::schedule; | 178 | Coro::schedule; |
179 | } | 179 | } |
180 | }; | 180 | }; |
181 | 181 | ||
182 | # provide hooks for Coro::Timer | ||
183 | |||
184 | package Coro::Timer; | ||
185 | |||
186 | unless ($override) { | ||
187 | $override = 1; | ||
188 | *_new_timer = sub { | ||
189 | Event->timer(at => $_[0], cb => $_[1]); | ||
190 | }; | ||
191 | } | ||
192 | |||
182 | 1; | 193 | 1; |
183 | 194 | ||
184 | =head1 AUTHOR | 195 | =head1 AUTHOR |
185 | 196 | ||
186 | Marc Lehmann <pcg@goof.com> | 197 | Marc Lehmann <pcg@goof.com> |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |