… | |
… | |
81 | our $VERSION = '0.03'; |
81 | our $VERSION = '0.03'; |
82 | use XSLoader; |
82 | use XSLoader; |
83 | XSLoader::load "EV", $VERSION; |
83 | XSLoader::load "EV", $VERSION; |
84 | } |
84 | } |
85 | |
85 | |
|
|
86 | @EV::Io::ISA = "EV::Watcher"; |
|
|
87 | @EV::Time::ISA = "EV::Watcher"; |
|
|
88 | @EV::Timer::ISA = "EV::Time"; |
|
|
89 | @EV::Periodic::ISA = "EV::Time"; |
|
|
90 | @EV::Signal::ISA = "EV::Watcher"; |
|
|
91 | @EV::Idle::ISA = "EV::Watcher"; |
|
|
92 | @EV::Prepare::ISA = "EV::Watcher"; |
|
|
93 | @EV::Check::ISA = "EV::Watcher"; |
|
|
94 | |
86 | =head1 BASIC INTERFACE |
95 | =head1 BASIC INTERFACE |
87 | |
96 | |
88 | =over 4 |
97 | =over 4 |
89 | |
98 | |
90 | =item $EV::NPRI |
99 | =item $EV::NPRI |
… | |
… | |
305 | |
314 | |
306 | our $DIED = sub { |
315 | our $DIED = sub { |
307 | warn "EV: error in callback (ignoring): $@"; |
316 | warn "EV: error in callback (ignoring): $@"; |
308 | }; |
317 | }; |
309 | |
318 | |
310 | our $NPRI = 4; |
319 | init; |
311 | our $BASE = init; |
|
|
312 | priority_init $NPRI; |
|
|
313 | |
320 | |
314 | push @AnyEvent::REGISTRY, [EV => "EV::AnyEvent"]; |
321 | push @AnyEvent::REGISTRY, [EV => "EV::AnyEvent"]; |
315 | |
322 | |
316 | 1; |
323 | 1; |
317 | |
324 | |