… | … | ||
---|---|---|---|
33 | 33 | ||
34 | BEGIN { | 34 | BEGIN { |
35 | eval "use Time::HiRes 'time'"; | 35 | eval "use Time::HiRes 'time'"; |
36 | } | 36 | } |
37 | 37 | ||
38 | $VERSION = 0.652; | 38 | $VERSION = 0.7; |
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 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |