| … | … | ||
|---|---|---|---|
| 28 | my ($class, %arg) = @_; | 28 | my ($class, %arg) = @_; |
| 29 | 29 | ||
| 30 | my $cb = $arg{cb}; | 30 | my $cb = $arg{cb}; |
| 31 | 31 | ||
| 32 | EV::io | 32 | EV::io |
| 33 | $arg{fh}, | 33 | fileno $arg{fh}, |
| 34 | ($arg{poll} =~ /r/ ? EV::READ : 0) | ($arg{poll} =~ /w/ ? EV::WRITE : 0) | EV::PERSIST, | 34 | ($arg{poll} =~ /r/ ? EV::READ : 0) | ($arg{poll} =~ /w/ ? EV::WRITE : 0) | EV::PERSIST, |
| 35 | sub { | 35 | sub { |
| 36 | $cb->( ($_[1] & EV::READ ? "r" : "") . ($_[1] & EV::WRITE ? "w" : "") ); | 36 | $cb->( ($_[1] & EV::READ ? "r" : "") . ($_[1] & EV::WRITE ? "w" : "") ); |
| 37 | } | 37 | } |
| 38 | } | 38 | } |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |