… | … | ||
---|---|---|---|
30 | 30 | ||
31 | BEGIN { | 31 | BEGIN { |
32 | eval "use Time::HiRes 'time'"; | 32 | eval "use Time::HiRes 'time'"; |
33 | } | 33 | } |
34 | 34 | ||
35 | $VERSION = 0.52; | 35 | $VERSION = 0.53; |
36 | @EXPORT_OK = qw(timeout sleep); | 36 | @EXPORT_OK = qw(timeout sleep); |
37 | 37 | ||
38 | =item $flag = timeout $seconds; | 38 | =item $flag = timeout $seconds; |
39 | 39 | ||
40 | This function will wake up the current coroutine after $seconds | 40 | This function will wake up the current coroutine after $seconds |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |