| … | |
… | |
| 33 | |
33 | |
| 34 | BEGIN { |
34 | BEGIN { |
| 35 | eval "use Time::HiRes 'time'"; |
35 | eval "use Time::HiRes 'time'"; |
| 36 | } |
36 | } |
| 37 | |
37 | |
| 38 | $VERSION = 1.1; |
38 | $VERSION = 1.11; |
| 39 | @EXPORT_OK = qw(timeout sleep); |
39 | @EXPORT_OK = qw(timeout sleep); |
| 40 | |
40 | |
| 41 | =item $flag = timeout $seconds; |
41 | =item $flag = timeout $seconds; |
| 42 | |
42 | |
| 43 | This function will wake up the current coroutine after $seconds |
43 | This function will wake up the current coroutine after $seconds |
| … | |
… | |
| 162 | |
162 | |
| 163 | =back |
163 | =back |
| 164 | |
164 | |
| 165 | =head1 AUTHOR |
165 | =head1 AUTHOR |
| 166 | |
166 | |
| 167 | Marc Lehmann <pcg@goof.com> |
167 | Marc Lehmann <schmorp@schmorp.de> |
| 168 | http://home.schmorp.de/ |
168 | http://home.schmorp.de/ |
| 169 | |
169 | |
| 170 | =cut |
170 | =cut |
| 171 | |
171 | |
