| … | … | ||
|---|---|---|---|
| 93 | &_timer_once; | 93 | &_timer_once; |
| 94 | do { &Coro::schedule } while !$#_; | 94 | do { &Coro::schedule } while !$#_; |
| 95 | pop | 95 | pop |
| 96 | } | 96 | } |
| 97 | 97 | ||
| 98 | sub readable_ev { | ||
| 99 | _readable_ev $_[0], my $done; | ||
| 100 | do { &Coro::schedule } while !defined $done; | ||
| 101 | $done | ||
| 102 | } | ||
| 103 | |||
| 104 | sub writable_ev { | ||
| 105 | _writable_ev $_[0], my $done; | ||
| 106 | do { &Coro::schedule } while !defined $done; | ||
| 107 | $done | ||
| 108 | } | ||
| 109 | |||
| 98 | 1; | 110 | 1; |
| 99 | 111 | ||
| 100 | =back | 112 | =back |
| 101 | 113 | ||
| 102 | =head1 AUTHOR | 114 | =head1 AUTHOR |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |