| … | … | ||
|---|---|---|---|
| 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.6; | 38 | $VERSION = 1.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 |