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

Comparing EV/EV.pm (file contents):
Revision 1.30 by root, Thu Nov 8 02:19:36 2007 UTC vs.
Revision 1.37 by root, Mon Nov 12 07:58:52 2007 UTC

… …
10 10
11 my $w = EV::timer 2, 0, sub { 11 my $w = EV::timer 2, 0, sub {
12 warn "is called after 2s"; 12 warn "is called after 2s";
13 }; 13 };
14 14
15 my $w = EV::timer 2, 1, sub { 15 my $w = EV::timer 2, 2, sub {
16 warn "is called roughly every 2s (repeat = 1)"; 16 warn "is called roughly every 2s (repeat = 2)";
17 }; 17 };
18 18
19 undef $w; # destroy event watcher again 19 undef $w; # destroy event watcher again
20 20
21 my $w = EV::periodic 0, 60, 0, sub { 21 my $w = EV::periodic 0, 60, 0, sub {
… …
23 }; 23 };
24 24
25 # IO 25 # IO
26 26
27 my $w = EV::io *STDIN, EV::READ, sub { 27 my $w = EV::io *STDIN, EV::READ, sub {
28 my ($w, $revents) = @_; # all callbacks get the watcher object and event mask 28 my ($w, $revents) = @_; # all callbacks receive the watcher and event mask
29 warn "stdin is readable, you entered: ", <STDIN>; 29 warn "stdin is readable, you entered: ", <STDIN>;
30 }; 30 };
31 31
32 # SIGNALS 32 # SIGNALS
33 33
34 my $w = EV::signal 'QUIT', sub { 34 my $w = EV::signal 'QUIT', sub {
35 warn "sigquit received\n"; 35 warn "sigquit received\n";
36 }; 36 };
37 37
38 my $w = EV::signal 3, sub {
39 warn "sigquit received (this is GNU/Linux, right?)\n";
40 };
41
42 # CHILD/PID STATUS CHANGES 38 # CHILD/PID STATUS CHANGES
43 39
44 my $w = EV::child 666, sub { 40 my $w = EV::child 666, sub {
45 my ($w, $revents) = @_; 41 my ($w, $revents) = @_;
46 # my $pid = $w->rpid;
47 my $status = $w->rstatus; 42 my $status = $w->rstatus;
48 }; 43 };
49 44
50 # MAINLOOP 45 # MAINLOOP
51 EV::loop; # loop until EV::loop_done is called 46 EV::loop; # loop until EV::loop_done is called or all watchers stop
52 EV::loop EV::LOOP_ONESHOT; # block until at least one event could be handled 47 EV::loop EV::LOOP_ONESHOT; # block until at least one event could be handled
53 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
54 49
55=head1 DESCRIPTION 50=head1 DESCRIPTION
56 51
… …
62package EV; 57package EV;
63 58
64use strict; 59use strict;
65 60
66BEGIN { 61BEGIN {
67 our $VERSION = '0.51'; 62 our $VERSION = '0.8';
68 use XSLoader; 63 use XSLoader;
69 XSLoader::load "EV", $VERSION; 64 XSLoader::load "EV", $VERSION;
70} 65}
71 66
72@EV::Io::ISA = 67@EV::Io::ISA =
… …
341possible time where C<$time = $at (mod $interval)>, regardless of any time 336possible time where C<$time = $at (mod $interval)>, regardless of any time
342jumps. 337jumps.
343 338
344=item * manual reschedule mode ($reschedule_cb = coderef) 339=item * manual reschedule mode ($reschedule_cb = coderef)
345 340
346In this mode $interval and $at are both being ignored. Instead, each time 341In this mode $interval and $at are both being ignored. Instead, each
347the periodic watcher gets scheduled, the first callback ($reschedule_cb) 342time the periodic watcher gets scheduled, the reschedule callback
348will be called with the watcher as first, and the current time as second 343($reschedule_cb) will be called with the watcher as first, and the current
349argument. 344time as second argument.
350 345
351I<This callback MUST NOT stop or destroy the event watcher, ever.> 346I<This callback MUST NOT stop or destroy this or any other periodic
347watcher, ever>. If you need to stop it, return 1e30 and stop it
348afterwards.
352 349
353It must return the next time to trigger, based on the passed time value 350It must return the next time to trigger, based on the passed time value
354(that is, the lowest time value larger than to the second argument). It 351(that is, the lowest time value larger than to the second argument). It
355will usually be called just before the callback will be triggered, but 352will usually be called just before the callback will be triggered, but
356might be called at other times, too. 353might be called at other times, too.
… …
541}; 538};
542 539
543default_loop 540default_loop
544 or die 'EV: cannot initialise libev backend. bad $ENV{LIBEV_METHODS}?'; 541 or die 'EV: cannot initialise libev backend. bad $ENV{LIBEV_METHODS}?';
545 542
546push @AnyEvent::REGISTRY, [EV => "EV::AnyEvent"];
547
5481; 5431;
549 544
550=head1 SEE ALSO 545=head1 SEE ALSO
551 546
552 L<EV::DNS>, L<EV::AnyEvent>. 547 L<EV::DNS>, L<EV::AnyEvent>.

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines