ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/EV/EV.pm
(Generate patch)

Comparing EV/EV.pm (file contents):
Revision 1.51 by root, Sat Nov 24 16:12:37 2007 UTC vs.
Revision 1.62 by root, Fri Dec 7 18:09:38 2007 UTC

39 39
40 my $w = EV::child 666, sub { 40 my $w = EV::child 666, sub {
41 my ($w, $revents) = @_; 41 my ($w, $revents) = @_;
42 my $status = $w->rstatus; 42 my $status = $w->rstatus;
43 }; 43 };
44
45 # STAT CHANGES
46 my $w = EV::stat "/etc/passwd", 10, sub {
47 my ($w, $revents) = @_;
48 warn $w->path, " has changed somehow.\n";
49 };
44 50
45 # MAINLOOP 51 # MAINLOOP
46 EV::loop; # loop until EV::unloop is called or all watchers stop 52 EV::loop; # loop until EV::unloop is called or all watchers stop
47 EV::loop EV::LOOP_ONESHOT; # block until at least one event could be handled 53 EV::loop EV::LOOP_ONESHOT; # block until at least one event could be handled
48 EV::loop EV::LOOP_NONBLOCK; # try to handle same events, but do not block 54 EV::loop EV::LOOP_NONBLOCK; # try to handle same events, but do not block
49 55
50=head1 DESCRIPTION 56=head1 DESCRIPTION
51 57
52This module provides an interface to libev 58This module provides an interface to libev
53(L<http://software.schmorp.de/pkg/libev.html>). 59(L<http://software.schmorp.de/pkg/libev.html>). While the documentation
60below is comprehensive, one might also consult the documentation of libev
61itself (L<http://cvs.schmorp.de/libev/ev.html>) for more subtle details on
62watcher semantics or some discussion on the available backends, or how to
63force a specific backend with C<LIBEV_FLAGS>, or just about in any case
64because it has much more detailed information.
54 65
55=cut 66=cut
56 67
57package EV; 68package EV;
58 69
59use strict; 70use strict;
60 71
61BEGIN { 72BEGIN {
62 our $VERSION = '1.3'; 73 our $VERSION = '1.7';
63 use XSLoader; 74 use XSLoader;
64 XSLoader::load "EV", $VERSION; 75 XSLoader::load "EV", $VERSION;
65} 76}
66 77
67@EV::IO::ISA = 78@EV::IO::ISA =
68@EV::Timer::ISA = 79@EV::Timer::ISA =
69@EV::Periodic::ISA = 80@EV::Periodic::ISA =
70@EV::Signal::ISA = 81@EV::Signal::ISA =
82@EV::Child::ISA =
83@EV::Stat::ISA =
71@EV::Idle::ISA = 84@EV::Idle::ISA =
72@EV::Prepare::ISA = 85@EV::Prepare::ISA =
73@EV::Check::ISA = 86@EV::Check::ISA =
74@EV::Child::ISA = "EV::Watcher"; 87@EV::Embed::ISA =
88@EV::Fork::ISA =
89 "EV::Watcher";
75 90
76=head1 BASIC INTERFACE 91=head1 BASIC INTERFACE
77 92
78=over 4 93=over 4
79 94
116When called with no arguments or an argument of EV::UNLOOP_ONE, makes the 131When called with no arguments or an argument of EV::UNLOOP_ONE, makes the
117innermost call to EV::loop return. 132innermost call to EV::loop return.
118 133
119When called with an argument of EV::UNLOOP_ALL, all calls to EV::loop will return as 134When called with an argument of EV::UNLOOP_ALL, all calls to EV::loop will return as
120fast as possible. 135fast as possible.
136
137=item $count = EV::loop_count
138
139Return the number of times the event loop has polled for new
140events. Sometiems useful as a generation counter.
121 141
122=item EV::once $fh_or_undef, $events, $timeout, $cb->($revents) 142=item EV::once $fh_or_undef, $events, $timeout, $cb->($revents)
123 143
124This function rolls together an I/O and a timer watcher for a single 144This function rolls together an I/O and a timer watcher for a single
125one-shot event without the need for managing a watcher object. 145one-shot event without the need for managing a watcher object.
142of them triggers, then they will be stopped and freed, and the callback 162of them triggers, then they will be stopped and freed, and the callback
143invoked. 163invoked.
144 164
145=back 165=back
146 166
147=head2 WATCHER 167=head2 WATCHER OBJECTS
148 168
149A watcher is an object that gets created to record your interest in some 169A watcher is an object that gets created to record your interest in some
150event. For instance, if you want to wait for STDIN to become readable, you 170event. For instance, if you want to wait for STDIN to become readable, you
151would create an EV::io watcher for that: 171would create an EV::io watcher for that:
152 172
161events. 181events.
162 182
163Each watcher type has its associated bit in revents, so you can use the 183Each watcher type has its associated bit in revents, so you can use the
164same callback for multiple watchers. The event mask is named after the 184same callback for multiple watchers. The event mask is named after the
165type, i..e. EV::child sets EV::CHILD, EV::prepare sets EV::PREPARE, 185type, i..e. EV::child sets EV::CHILD, EV::prepare sets EV::PREPARE,
166EV::periodic sets EV::PERIODIC and so on, with the exception of IO events 186EV::periodic sets EV::PERIODIC and so on, with the exception of I/O events
167(which can set both EV::READ and EV::WRITE bits), and EV::timer (which 187(which can set both EV::READ and EV::WRITE bits), and EV::timer (which
168uses EV::TIMEOUT). 188uses EV::TIMEOUT).
169 189
170In the rare case where one wants to create a watcher but not start it at 190In the rare case where one wants to create a watcher but not start it at
171the same time, each constructor has a variant with a trailing C<_ns> in 191the same time, each constructor has a variant with a trailing C<_ns> in
177 197
178Also, all methods changing some aspect of a watcher (->set, ->priority, 198Also, all methods changing some aspect of a watcher (->set, ->priority,
179->fh and so on) automatically stop and start it again if it is active, 199->fh and so on) automatically stop and start it again if it is active,
180which means pending events get lost. 200which means pending events get lost.
181 201
182=head2 WATCHER TYPES 202=head2 COMMON WATCHER METHODS
183 203
184Now lets move to the existing watcher types and asociated methods. 204This section lists methods common to all watchers.
185
186The following methods are available for all watchers. Then followes a
187description of each watcher constructor (EV::io, EV::timer, EV::periodic,
188EV::signal, EV::child, EV::idle, EV::prepare and EV::check), followed by
189any type-specific methods (if any).
190 205
191=over 4 206=over 4
192 207
193=item $w->start 208=item $w->start
194 209
198 213
199=item $w->stop 214=item $w->stop
200 215
201Stop a watcher if it is active. Also clear any pending events (events that 216Stop a watcher if it is active. Also clear any pending events (events that
202have been received but that didn't yet result in a callback invocation), 217have been received but that didn't yet result in a callback invocation),
203regardless of wether the watcher was active or not. 218regardless of whether the watcher was active or not.
204 219
205=item $bool = $w->is_active 220=item $bool = $w->is_active
206 221
207Returns true if the watcher is active, false otherwise. 222Returns true if the watcher is active, false otherwise.
208 223
263though your watcher is active, it won't keep C<EV::loop> from returning. 278though your watcher is active, it won't keep C<EV::loop> from returning.
264 279
265The initial value for keepalive is true (enabled), and you cna change it 280The initial value for keepalive is true (enabled), and you cna change it
266any time. 281any time.
267 282
268Example: Register an IO watcher for some UDP socket but do not keep the 283Example: Register an I/O watcher for some UDP socket but do not keep the
269event loop from running just because of that watcher. 284event loop from running just because of that watcher.
270 285
271 my $udp_socket = ... 286 my $udp_socket = ...
272 my $udp_watcher = EV::io $udp_socket, EV::READ, sub { ... }; 287 my $udp_watcher = EV::io $udp_socket, EV::READ, sub { ... };
273 $udp_watcher->keepalive (0); 288 $udp_watcher->keepalive (0);
274 289
290=back
291
292
293=head2 WATCHER TYPES
294
295Each of the following subsections describes a single watcher type.
296
297=head3 I/O WATCHERS - is this file descriptor readable or writable?
298
299=over 4
300
275=item $w = EV::io $fileno_or_fh, $eventmask, $callback 301=item $w = EV::io $fileno_or_fh, $eventmask, $callback
276 302
277=item $w = EV::io_ns $fileno_or_fh, $eventmask, $callback 303=item $w = EV::io_ns $fileno_or_fh, $eventmask, $callback
278 304
279As long as the returned watcher object is alive, call the C<$callback> 305As long as the returned watcher object is alive, call the C<$callback>
280when the events specified in C<$eventmask>. 306when at least one of events specified in C<$eventmask> occurs.
281 307
282The $eventmask can be one or more of these constants ORed together: 308The $eventmask can be one or more of these constants ORed together:
283 309
284 EV::READ wait until read() wouldn't block anymore 310 EV::READ wait until read() wouldn't block anymore
285 EV::WRITE wait until write() wouldn't block anymore 311 EV::WRITE wait until write() wouldn't block anymore
301 327
302=item $old_eventmask = $w->events ($new_eventmask) 328=item $old_eventmask = $w->events ($new_eventmask)
303 329
304Returns the previously set event mask and optionally set a new one. 330Returns the previously set event mask and optionally set a new one.
305 331
332=back
333
334
335=head3 TIMER WATCHERS - relative and optionally repeating timeouts
336
337=over 4
306 338
307=item $w = EV::timer $after, $repeat, $callback 339=item $w = EV::timer $after, $repeat, $callback
308 340
309=item $w = EV::timer_ns $after, $repeat, $callback 341=item $w = EV::timer_ns $after, $repeat, $callback
310 342
311Calls the callback after C<$after> seconds. If C<$repeat> is non-zero, 343Calls the callback after C<$after> seconds (which may be fractional). If
312the timer will be restarted (with the $repeat value as $after) after the 344C<$repeat> is non-zero, the timer will be restarted (with the $repeat
313callback returns. 345value as $after) after the callback returns.
314 346
315This means that the callback would be called roughly after C<$after> 347This means that the callback would be called roughly after C<$after>
316seconds, and then every C<$repeat> seconds. The timer does his best not 348seconds, and then every C<$repeat> seconds. The timer does his best not
317to drift, but it will not invoke the timer more often then once per event 349to drift, but it will not invoke the timer more often then once per event
318loop iteration, and might drift in other cases. If that isn't acceptable, 350loop iteration, and might drift in other cases. If that isn't acceptable,
324 356
325The C<timer_ns> variant doesn't start (activate) the newly created watcher. 357The C<timer_ns> variant doesn't start (activate) the newly created watcher.
326 358
327=item $w->set ($after, $repeat) 359=item $w->set ($after, $repeat)
328 360
329Reconfigures the watcher, see the constructor above for details. Can be at 361Reconfigures the watcher, see the constructor above for details. Can be called at
330any time. 362any time.
331 363
332=item $w->again 364=item $w->again
333 365
334Similar to the C<start> method, but has special semantics for repeating timers: 366Similar to the C<start> method, but has special semantics for repeating timers:
345This behaviour is useful when you have a timeout for some IO 377This behaviour is useful when you have a timeout for some IO
346operation. You create a timer object with the same value for C<$after> and 378operation. You create a timer object with the same value for C<$after> and
347C<$repeat>, and then, in the read/write watcher, run the C<again> method 379C<$repeat>, and then, in the read/write watcher, run the C<again> method
348on the timeout. 380on the timeout.
349 381
382=back
383
384
385=head3 PERIODIC WATCHERS - to cron or not to cron?
386
387=over 4
350 388
351=item $w = EV::periodic $at, $interval, $reschedule_cb, $callback 389=item $w = EV::periodic $at, $interval, $reschedule_cb, $callback
352 390
353=item $w = EV::periodic_ns $at, $interval, $reschedule_cb, $callback 391=item $w = EV::periodic_ns $at, $interval, $reschedule_cb, $callback
354 392
426 464
427The C<periodic_ns> variant doesn't start (activate) the newly created watcher. 465The C<periodic_ns> variant doesn't start (activate) the newly created watcher.
428 466
429=item $w->set ($at, $interval, $reschedule_cb) 467=item $w->set ($at, $interval, $reschedule_cb)
430 468
431Reconfigures the watcher, see the constructor above for details. Can be at 469Reconfigures the watcher, see the constructor above for details. Can be called at
432any time. 470any time.
433 471
434=item $w->again 472=item $w->again
435 473
436Simply stops and starts the watcher again. 474Simply stops and starts the watcher again.
437 475
476=back
477
478
479=head3 SIGNAL WATCHERS - signal me when a signal gets signalled!
480
481=over 4
438 482
439=item $w = EV::signal $signal, $callback 483=item $w = EV::signal $signal, $callback
440 484
441=item $w = EV::signal_ns $signal, $callback 485=item $w = EV::signal_ns $signal, $callback
442 486
443Call the callback when $signal is received (the signal can be specified 487Call the callback when $signal is received (the signal can be specified by
444by number or by name, just as with kill or %SIG). 488number or by name, just as with C<kill> or C<%SIG>).
445 489
446EV will grab the signal for the process (the kernel only allows one 490EV will grab the signal for the process (the kernel only allows one
447component to receive a signal at a time) when you start a signal watcher, 491component to receive a signal at a time) when you start a signal watcher,
448and removes it again when you stop it. Perl does the same when you 492and removes it again when you stop it. Perl does the same when you
449add/remove callbacks to %SIG, so watch out. 493add/remove callbacks to C<%SIG>, so watch out.
450 494
451You can have as many signal watchers per signal as you want. 495You can have as many signal watchers per signal as you want.
452 496
453The C<signal_ns> variant doesn't start (activate) the newly created watcher. 497The C<signal_ns> variant doesn't start (activate) the newly created watcher.
454 498
455=item $w->set ($signal) 499=item $w->set ($signal)
456 500
457Reconfigures the watcher, see the constructor above for details. Can be at 501Reconfigures the watcher, see the constructor above for details. Can be
458any time. 502called at any time.
459 503
460=item $current_signum = $w->signal 504=item $current_signum = $w->signal
461 505
462=item $old_signum = $w->signal ($new_signal) 506=item $old_signum = $w->signal ($new_signal)
463 507
464Returns the previously set signal (always as a number not name) and 508Returns the previously set signal (always as a number not name) and
465optionally set a new one. 509optionally set a new one.
466 510
511=back
512
513
514=head3 CHILD WATCHERS - watch out for process status changes
515
516=over 4
467 517
468=item $w = EV::child $pid, $callback 518=item $w = EV::child $pid, $callback
469 519
470=item $w = EV::child_ns $pid, $callback 520=item $w = EV::child_ns $pid, $callback
471 521
472Call the callback when a status change for pid C<$pid> (or any pid 522Call the callback when a status change for pid C<$pid> (or any pid if
473if C<$pid> is 0) has been received. More precisely: when the process 523C<$pid> is 0) has been received. More precisely: when the process receives
474receives a SIGCHLD, EV will fetch the outstanding exit/wait status for all 524a C<SIGCHLD>, EV will fetch the outstanding exit/wait status for all
475changed/zombie children and call the callback. 525changed/zombie children and call the callback.
476 526
477You can access both status and pid by using the C<rstatus> and C<rpid> 527It is valid (and fully supported) to install a child watcher after a child
478methods on the watcher object. 528has exited but before the event loop has started its next iteration (for
529example, first you C<fork>, then the new child process might exit, and
530only then do you install a child watcher in the parent for the new pid).
479 531
532You can access both exit (or tracing) status and pid by using the
533C<rstatus> and C<rpid> methods on the watcher object.
534
480You can have as many pid watchers per pid as you want. 535You can have as many pid watchers per pid as you want, they will all be
536called.
481 537
482The C<child_ns> variant doesn't start (activate) the newly created watcher. 538The C<child_ns> variant doesn't start (activate) the newly created watcher.
483 539
484=item $w->set ($pid) 540=item $w->set ($pid)
485 541
486Reconfigures the watcher, see the constructor above for details. Can be at 542Reconfigures the watcher, see the constructor above for details. Can be called at
487any time. 543any time.
488 544
489=item $current_pid = $w->pid 545=item $current_pid = $w->pid
490 546
491=item $old_pid = $w->pid ($new_pid) 547=item $old_pid = $w->pid ($new_pid)
500=item $pid = $w->rpid 556=item $pid = $w->rpid
501 557
502Return the pid of the awaited child (useful when you have installed a 558Return the pid of the awaited child (useful when you have installed a
503watcher for all pids). 559watcher for all pids).
504 560
561=back
562
563
564=head3 STAT WATCHERS - did the file attributes just change?
565
566=over 4
567
568=item $w = EV::stat $path, $interval, $callback
569
570=item $w = EV::stat_ns $path, $interval, $callback
571
572Call the callback when a file status change has been detected on
573C<$path>. The C<$path> does not need to exist, changing from "path exists"
574to "path does not exist" is a status change like any other.
575
576The C<$interval> is a recommended polling interval for systems where
577OS-supported change notifications don't exist or are not supported. If
578you use C<0> then an unspecified default is used (which is highly
579recommended!), which is to be expected to be around five seconds usually.
580
581This watcher type is not meant for massive numbers of stat watchers,
582as even with OS-supported change notifications, this can be
583resource-intensive.
584
585The C<stat_ns> variant doesn't start (activate) the newly created watcher.
586
587=item ... = $w->stat
588
589This call is very similar to the perl C<stat> built-in: It stats (using
590C<lstat>) the path specified in the watcher and sets perls stat cache (as
591well as EV's idea of the current stat values) to the values found.
592
593In scalar context, a boolean is return indicating success or failure of
594the stat. In list context, the same 13-value list as with stat is returned
595(except that the blksize and blocks fields are not reliable).
596
597In the case of an error, errno is set to C<ENOENT> (regardless of the
598actual error value) and the C<nlink> value is forced to zero (if the stat
599was successful then nlink is guaranteed to be non-zero).
600
601See also the next two entries for more info.
602
603=item ... = $w->attr
604
605Just like C<< $w->stat >>, but without the initial stat'ing: this returns
606the values most recently detected by EV. See the next entry for more info.
607
608=item ... = $w->prev
609
610Just like C<< $w->stat >>, but without the initial stat'ing: this returns
611the previous set of values, before the change.
612
613That is, when the watcher callback is invoked, C<< $w->prev >> will be set
614to the values found I<before> a change was detected, while C<< $w->attr >>
615returns the values found leading to the change detection. The difference (if any)
616between C<prev> and C<attr> is what triggered the callback.
617
618If you did something to the filesystem object and do not want to trigger
619yet another change, you can call C<stat> to update EV's idea of what the
620current attributes are.
621
622=item $w->set ($path, $interval)
623
624Reconfigures the watcher, see the constructor above for details. Can be
625called at any time.
626
627=item $current_path = $w->path
628
629=item $old_path = $w->path ($new_path)
630
631Returns the previously set path and optionally set a new one.
632
633=item $current_interval = $w->interval
634
635=item $old_interval = $w->interval ($new_interval)
636
637Returns the previously set interval and optionally set a new one. Can be
638used to query the actual interval used.
639
640=back
641
642
643=head3 IDLE WATCHERS - when you've got nothing better to do...
644
645=over 4
505 646
506=item $w = EV::idle $callback 647=item $w = EV::idle $callback
507 648
508=item $w = EV::idle_ns $callback 649=item $w = EV::idle_ns $callback
509 650
510Call the callback when there are no pending io, timer/periodic, signal or 651Call the callback when there are no other pending watchers of the same or
511child events, i.e. when the process is idle. 652higher priority (excluding check, prepare and other idle watchers of the
653same or lower priority, of course). They are called idle watchers because
654when the watcher is the highest priority pending event in the process, the
655process is considered to be idle at that priority.
656
657If you want a watcher that is only ever called when I<no> other events are
658outstanding you have to set the priority to C<EV::MINPRI>.
512 659
513The process will not block as long as any idle watchers are active, and 660The process will not block as long as any idle watchers are active, and
514they will be called repeatedly until stopped. 661they will be called repeatedly until stopped.
515 662
663For example, if you have idle watchers at priority C<0> and C<1>, and
664an I/O watcher at priority C<0>, then the idle watcher at priority C<1>
665and the I/O watcher will always run when ready. Only when the idle watcher
666at priority C<1> is stopped and the I/O watcher at priority C<0> is not
667pending with the C<0>-priority idle watcher be invoked.
668
516The C<idle_ns> variant doesn't start (activate) the newly created watcher. 669The C<idle_ns> variant doesn't start (activate) the newly created watcher.
517 670
671=back
672
673
674=head3 PREPARE WATCHERS - customise your event loop!
675
676=over 4
518 677
519=item $w = EV::prepare $callback 678=item $w = EV::prepare $callback
520 679
521=item $w = EV::prepare_ns $callback 680=item $w = EV::prepare_ns $callback
522 681
525 684
526See the EV::check watcher, below, for explanations and an example. 685See the EV::check watcher, below, for explanations and an example.
527 686
528The C<prepare_ns> variant doesn't start (activate) the newly created watcher. 687The C<prepare_ns> variant doesn't start (activate) the newly created watcher.
529 688
689=back
690
691
692=head3 CHECK WATCHERS - customise your event loop even more!
693
694=over 4
530 695
531=item $w = EV::check $callback 696=item $w = EV::check $callback
532 697
533=item $w = EV::check_ns $callback 698=item $w = EV::check_ns $callback
534 699
548 or return; 713 or return;
549 714
550 # make the dispatcher handle any outstanding stuff 715 # make the dispatcher handle any outstanding stuff
551 ... not shown 716 ... not shown
552 717
553 # create an IO watcher for each and every socket 718 # create an I/O watcher for each and every socket
554 @snmp_watcher = ( 719 @snmp_watcher = (
555 (map { EV::io $_, EV::READ, sub { } } 720 (map { EV::io $_, EV::READ, sub { } }
556 keys %{ $dispatcher->{_descriptors} }), 721 keys %{ $dispatcher->{_descriptors} }),
557 722
558 EV::timer +($event->[Net::SNMP::Dispatcher::_ACTIVE] 723 EV::timer +($event->[Net::SNMP::Dispatcher::_ACTIVE]
579first). 744first).
580 745
581The C<check_ns> variant doesn't start (activate) the newly created watcher. 746The C<check_ns> variant doesn't start (activate) the newly created watcher.
582 747
583=back 748=back
749
750
751=head3 FORK WATCHERS - the audacity to resume the event loop after a fork
752
753Fork watchers are called when a C<fork ()> was detected. The invocation
754is done before the event loop blocks next and before C<check> watchers
755are being called, and only in the child after the fork.
756
757=over 4
758
759=item $w = EV::fork $callback
760
761=item $w = EV::fork_ns $callback
762
763Call the callback before the event loop is resumed in the child process
764after a fork.
765
766The C<fork_ns> variant doesn't start (activate) the newly created watcher.
767
768=back
769
770
771=head1 PERL SIGNALS
772
773While Perl signal handling (C<%SIG>) is not affected by EV, the behaviour
774with EV is as the same as any other C library: Perl-signals will only be
775handled when Perl runs, which means your signal handler might be invoked
776only the next time an event callback is invoked.
777
778The solution is to use EV signal watchers (see C<EV::signal>), which will
779ensure proper operations with regards to other event watchers.
780
781If you cannot do this for whatever reason, you can also force a watcher
782to be called on every event loop iteration by installing a C<EV::check>
783watcher:
784
785 my $async_check = EV::check sub { };
786
787This ensures that perl shortly gets into control for a short time, and
788also ensures slower overall operation.
584 789
585=head1 THREADS 790=head1 THREADS
586 791
587Threads are not supported by this module in any way. Perl pseudo-threads 792Threads are not supported by this module in any way. Perl pseudo-threads
588is evil stuff and must die. As soon as Perl gains real threads I will work 793is evil stuff and must die. As soon as Perl gains real threads I will work
616 821
6171; 8221;
618 823
619=head1 SEE ALSO 824=head1 SEE ALSO
620 825
621 L<EV::DNS>. 826L<EV::ADNS> (asynchronous dns), L<Glib::EV> (makes Glib/Gtk2 use EV as
827event loop), L<Coro::EV> (efficient coroutines with EV).
622 828
623=head1 AUTHOR 829=head1 AUTHOR
624 830
625 Marc Lehmann <schmorp@schmorp.de> 831 Marc Lehmann <schmorp@schmorp.de>
626 http://home.schmorp.de/ 832 http://home.schmorp.de/

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines