| 1 | =head1 NAME | 1 | =head1 NAME |
|---|---|---|---|
| 2 | 2 | ||
| 3 | Coro - create an manage coroutines | 3 | Coro - create and manage coroutines |
| 4 | 4 | ||
| 5 | =head1 SYNOPSIS | 5 | =head1 SYNOPSIS |
| 6 | 6 | ||
| 7 | use Coro; | 7 | use Coro; |
| 8 | 8 | ||
| … | … | ||
| 90 | eval { &$proc->resume }; | 90 | eval { &$proc->resume }; |
| 91 | if ($@) { | 91 | if ($@) { |
| 92 | ($error_msg, $error_coro) = ($@, $current); | 92 | ($error_msg, $error_coro) = ($@, $current); |
| 93 | $error->resume; | 93 | $error->resume; |
| 94 | } | 94 | } |
| 95 | } while (); | 95 | } while (1); |
| 96 | }, $class; | 96 | }, $class; |
| 97 | } | 97 | } |
| 98 | 98 | ||
| 99 | =item $coro->resume | 99 | =item $coro->resume |
| 100 | 100 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |