| … | |
… | |
| 40 | sub { |
40 | sub { |
| 41 | $cb->( ($_[1] & EV::READ ? "r" : "") . ($_[1] & EV::WRITE ? "w" : "") ); |
41 | $cb->( ($_[1] & EV::READ ? "r" : "") . ($_[1] & EV::WRITE ? "w" : "") ); |
| 42 | } |
42 | } |
| 43 | } |
43 | } |
| 44 | |
44 | |
| 45 | #sub signal { |
45 | sub signal { |
| 46 | # my ($class, %arg) = @_; |
46 | my ($class, %arg) = @_; |
| 47 | # |
47 | |
| 48 | # EV::timer $arg{after}, 0, $arg{cb} |
48 | EV::signal $arg{signal}, $arg{cb} |
| 49 | #}#d#TODO |
49 | } |
| 50 | |
50 | |
| 51 | sub condvar { |
51 | sub condvar { |
| 52 | bless \my $flag, "EV::AnyEvent" |
52 | bless \my $flag, "EV::AnyEvent" |
| 53 | } |
53 | } |
| 54 | |
54 | |
