| … | |
… | |
| 87 | use Async::Interrupt (); |
87 | use Async::Interrupt (); |
| 88 | |
88 | |
| 89 | use base 'EV::Loop'; |
89 | use base 'EV::Loop'; |
| 90 | |
90 | |
| 91 | BEGIN { |
91 | BEGIN { |
| 92 | our $VERSION = '0.03'; |
92 | our $VERSION = '0.04'; |
| 93 | |
93 | |
| 94 | require XSLoader; |
94 | require XSLoader; |
| 95 | XSLoader::load ("EV::Loop::Async", $VERSION); |
95 | XSLoader::load ("EV::Loop::Async", $VERSION); |
| 96 | } |
96 | } |
| 97 | |
97 | |
| … | |
… | |
| 186 | my ($class, $flags, @asy) = @_; |
186 | my ($class, $flags, @asy) = @_; |
| 187 | |
187 | |
| 188 | my $self = bless $class->SUPER::new ($flags), $class; |
188 | my $self = bless $class->SUPER::new ($flags), $class; |
| 189 | my ($c_func, $c_arg) = _c_func $self; |
189 | my ($c_func, $c_arg) = _c_func $self; |
| 190 | my $asy = new Async::Interrupt @asy, c_cb => [$c_func, $c_arg]; |
190 | my $asy = new Async::Interrupt @asy, c_cb => [$c_func, $c_arg]; |
| 191 | $self->_attach ($asy, $asy->signal_func); |
191 | _attach $self, $asy, $asy->signal_func; |
| 192 | |
192 | |
| 193 | $self |
193 | $self |
| 194 | } |
194 | } |
| 195 | |
195 | |
| 196 | =item $loop->notify |
196 | =item $loop->notify |
