| … | |
… | |
| 10 | sleep 10; |
10 | sleep 10; |
| 11 | |
11 | |
| 12 | =head1 DESCRIPTION |
12 | =head1 DESCRIPTION |
| 13 | |
13 | |
| 14 | This package implements a simple timer callback system which works |
14 | This package implements a simple timer callback system which works |
| 15 | independent of the event loop mechanism used. If no event mechanism is |
15 | independent of the event loop mechanism used. |
| 16 | used, it is emulated. The C<Coro::Event> module overwrites functions with |
|
|
| 17 | versions better suited. |
|
|
| 18 | |
|
|
| 19 | This module is not subclassable. |
|
|
| 20 | |
16 | |
| 21 | =over 4 |
17 | =over 4 |
| 22 | |
18 | |
| 23 | =cut |
19 | =cut |
| 24 | |
20 | |
| … | |
… | |
| 27 | no warnings; |
23 | no warnings; |
| 28 | |
24 | |
| 29 | use Carp (); |
25 | use Carp (); |
| 30 | use Exporter; |
26 | use Exporter; |
| 31 | |
27 | |
|
|
28 | use AnyEvent (); |
|
|
29 | |
| 32 | use Coro (); |
30 | use Coro (); |
| 33 | use AnyEvent (); |
31 | use Coro::AnyEvent (); |
| 34 | |
32 | |
| 35 | $VERSION = 4.6; |
33 | $VERSION = 4.6; |
| 36 | @EXPORT_OK = qw(timeout sleep); |
34 | @EXPORT_OK = qw(timeout sleep); |
| 37 | |
35 | |
| 38 | =item $flag = timeout $seconds; |
36 | =item $flag = timeout $seconds; |
| … | |
… | |
| 92 | }); |
90 | }); |
| 93 | |
91 | |
| 94 | do { &Coro::schedule } while $current; |
92 | do { &Coro::schedule } while $current; |
| 95 | } |
93 | } |
| 96 | |
94 | |
| 97 | $Coro::idle = sub { |
|
|
| 98 | AnyEvent->one_event; |
|
|
| 99 | }; |
|
|
| 100 | |
|
|
| 101 | 1; |
95 | 1; |
| 102 | |
96 | |
| 103 | =back |
97 | =back |
| 104 | |
98 | |
| 105 | =head1 AUTHOR |
99 | =head1 AUTHOR |
