… | |
… | |
48 | EV::loop EV::LOOP_NONBLOCK; # try to handle same events, but do not block |
48 | EV::loop EV::LOOP_NONBLOCK; # try to handle same events, but do not block |
49 | |
49 | |
50 | =head1 DESCRIPTION |
50 | =head1 DESCRIPTION |
51 | |
51 | |
52 | This module provides an interface to libev |
52 | This module provides an interface to libev |
53 | (L<http://software.schmorp.de/pkg/libev.html>). |
53 | (L<http://software.schmorp.de/pkg/libev.html>). While the documentation |
|
|
54 | below is comprehensive, one might also consult the documentation of libev |
|
|
55 | itself (L<http://cvs.schmorp.de/libev/ev.html>) for more subtle details on |
|
|
56 | watcher semantics or some discussion on the available backends, or how to |
|
|
57 | force a specific backend with C<LIBEV_FLAGS>. |
54 | |
58 | |
55 | =cut |
59 | =cut |
56 | |
60 | |
57 | package EV; |
61 | package EV; |
58 | |
62 | |
59 | use strict; |
63 | use strict; |
60 | |
64 | |
61 | BEGIN { |
65 | BEGIN { |
62 | our $VERSION = '1.2'; |
66 | our $VERSION = '1.3'; |
63 | use XSLoader; |
67 | use XSLoader; |
64 | XSLoader::load "EV", $VERSION; |
68 | XSLoader::load "EV", $VERSION; |
65 | } |
69 | } |
66 | |
70 | |
67 | @EV::Io::ISA = |
71 | @EV::IO::ISA = |
68 | @EV::Timer::ISA = |
72 | @EV::Timer::ISA = |
69 | @EV::Periodic::ISA = |
73 | @EV::Periodic::ISA = |
70 | @EV::Signal::ISA = |
74 | @EV::Signal::ISA = |
71 | @EV::Idle::ISA = |
75 | @EV::Idle::ISA = |
72 | @EV::Prepare::ISA = |
76 | @EV::Prepare::ISA = |
… | |
… | |
233 | watchers with higher priority will be invoked first. The valid range of |
237 | watchers with higher priority will be invoked first. The valid range of |
234 | priorities lies between EV::MAXPRI (default 2) and EV::MINPRI (default |
238 | priorities lies between EV::MAXPRI (default 2) and EV::MINPRI (default |
235 | -2). If the priority is outside this range it will automatically be |
239 | -2). If the priority is outside this range it will automatically be |
236 | normalised to the nearest valid priority. |
240 | normalised to the nearest valid priority. |
237 | |
241 | |
238 | The default priority of any newly-created weatcher is 0. |
242 | The default priority of any newly-created watcher is 0. |
|
|
243 | |
|
|
244 | Note that the priority semantics have not yet been fleshed out and are |
|
|
245 | subject to almost certain change. |
239 | |
246 | |
240 | =item $w->trigger ($revents) |
247 | =item $w->trigger ($revents) |
241 | |
248 | |
242 | Call the callback *now* with the given event mask. |
249 | Call the callback *now* with the given event mask. |
243 | |
250 | |
|
|
251 | =item $previous_state = $w->keepalive ($bool) |
|
|
252 | |
|
|
253 | Normally, C<EV::loop> will return when there are no active watchers |
|
|
254 | (which is a "deadlock" because no progress can be made anymore). This is |
|
|
255 | convinient because it allows you to start your watchers (and your jobs), |
|
|
256 | call C<EV::loop> once and when it returns you know that all your jobs are |
|
|
257 | finished (or they forgot to register some watchers for their task :). |
|
|
258 | |
|
|
259 | Sometimes, however, this gets in your way, for example when you the module |
|
|
260 | that calls C<EV::loop> (usually the main program) is not the same module |
|
|
261 | as a long-living watcher (for example a DNS client module written by |
|
|
262 | somebody else even). Then you might want any outstanding requests to be |
|
|
263 | handled, but you would not want to keep C<EV::loop> from returning just |
|
|
264 | because you happen to have this long-running UDP port watcher. |
|
|
265 | |
|
|
266 | In this case you can clear the keepalive status, which means that even |
|
|
267 | though your watcher is active, it won't keep C<EV::loop> from returning. |
|
|
268 | |
|
|
269 | The initial value for keepalive is true (enabled), and you cna change it |
|
|
270 | any time. |
|
|
271 | |
|
|
272 | Example: Register an IO watcher for some UDP socket but do not keep the |
|
|
273 | event loop from running just because of that watcher. |
|
|
274 | |
|
|
275 | my $udp_socket = ... |
|
|
276 | my $udp_watcher = EV::io $udp_socket, EV::READ, sub { ... }; |
|
|
277 | $udp_watcher->keepalive (0); |
244 | |
278 | |
245 | =item $w = EV::io $fileno_or_fh, $eventmask, $callback |
279 | =item $w = EV::io $fileno_or_fh, $eventmask, $callback |
246 | |
280 | |
247 | =item $w = EV::io_ns $fileno_or_fh, $eventmask, $callback |
281 | =item $w = EV::io_ns $fileno_or_fh, $eventmask, $callback |
248 | |
282 | |