| … | |
… | |
| 56 | |
56 | |
| 57 | local $^W = 0; # avoid redefine warning for Coro::ready; |
57 | local $^W = 0; # avoid redefine warning for Coro::ready; |
| 58 | XSLoader::load __PACKAGE__, $VERSION; |
58 | XSLoader::load __PACKAGE__, $VERSION; |
| 59 | } |
59 | } |
| 60 | |
60 | |
| 61 | unshift @AnyEvent::REGISTRY, [Coro::EV => "EV::AnyEvent"]; |
61 | unshift @AnyEvent::REGISTRY, [Coro::EV => AnyEvent::Impl::CoroEV]; |
| 62 | |
62 | |
| 63 | $ev->{desc} = "[EV idle process]"; |
63 | $ev->{desc} = "[EV idle process]"; |
| 64 | |
64 | |
| 65 | $Coro::idle = sub { |
65 | $Coro::idle = sub { |
| 66 | EV::loop EV::LOOP_ONESHOT; |
66 | EV::loop EV::LOOP_ONESHOT; |
