| … | … | ||
|---|---|---|---|
| 46 | my ($class, %arg) = @_; | 46 | my ($class, %arg) = @_; |
| 47 | 47 | ||
| 48 | EV::signal $arg{signal}, $arg{cb} | 48 | EV::signal $arg{signal}, $arg{cb} |
| 49 | } | 49 | } |
| 50 | 50 | ||
| 51 | sub child { | ||
| 52 | my ($class, %arg) = @_; | ||
| 53 | |||
| 54 | EV::child $arg{pid}, $arg{cb} | ||
| 55 | } | ||
| 56 | |||
| 51 | sub condvar { | 57 | sub condvar { |
| 52 | bless \my $flag, "EV::AnyEvent" | 58 | bless \my $flag, "EV::AnyEvent" |
| 53 | } | 59 | } |
| 54 | 60 | ||
| 55 | sub broadcast { | 61 | sub broadcast { |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |