… | |
… | |
281 | |
281 | |
282 | Set the priority of the watcher to C<$priority> (0 <= $priority < $EV::NPRI). |
282 | Set the priority of the watcher to C<$priority> (0 <= $priority < $EV::NPRI). |
283 | |
283 | |
284 | =back |
284 | =back |
285 | |
285 | |
|
|
286 | =head1 THREADS |
|
|
287 | |
|
|
288 | Threads are not supported by this in any way. Perl pseudo-threads is evil |
|
|
289 | and must die. |
|
|
290 | |
286 | =head1 BUGS |
291 | =head1 BUGS |
287 | |
292 | |
288 | Lots. Libevent itself isn't well tested and rather buggy, and this module |
293 | Lots. Libevent itself isn't well tested and rather buggy, and this module |
289 | is quite new at the moment. |
294 | is quite new at the moment. |
290 | |
295 | |
… | |
… | |
300 | |
305 | |
301 | our $DIED = sub { |
306 | our $DIED = sub { |
302 | warn "EV: error in callback (ignoring): $@"; |
307 | warn "EV: error in callback (ignoring): $@"; |
303 | }; |
308 | }; |
304 | |
309 | |
305 | our $NPRI = 4; |
310 | init; |
306 | our $BASE = init; |
|
|
307 | priority_init $NPRI; |
|
|
308 | |
311 | |
309 | push @AnyEvent::REGISTRY, [EV => "EV::AnyEvent"]; |
312 | push @AnyEvent::REGISTRY, [EV => "EV::AnyEvent"]; |
310 | |
313 | |
311 | 1; |
314 | 1; |
312 | |
315 | |