| … | … | ||
|---|---|---|---|
| 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 |