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

Comparing EV/EV.pm (file contents):
Revision 1.31 by root, Thu Nov 8 02:21:02 2007 UTC vs.
Revision 1.44 by root, Thu Nov 22 04:52:23 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::unloop 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 = '1.2';
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 =
98 93
99Returns the time the last event loop iteration has been started. This 94Returns the time the last event loop iteration has been started. This
100is the time that (relative) timers are based on, and refering to it is 95is the time that (relative) timers are based on, and refering to it is
101usually faster then calling EV::time. 96usually faster then calling EV::time.
102 97
103=item $method = EV::ev_method 98=item $method = EV::method
104 99
105Returns an integer describing the backend used by libev (EV::METHOD_SELECT 100Returns an integer describing the backend used by libev (EV::METHOD_SELECT
106or EV::METHOD_EPOLL). 101or EV::METHOD_EPOLL).
107 102
108=item EV::loop [$flags] 103=item EV::loop [$flags]
109 104
110Begin checking for events and calling callbacks. It returns when a 105Begin checking for events and calling callbacks. It returns when a
111callback calls EV::loop_done. 106callback calls EV::unloop.
112 107
113The $flags argument can be one of the following: 108The $flags argument can be one of the following:
114 109
115 0 as above 110 0 as above
116 EV::LOOP_ONESHOT block at most once (wait, but do not loop) 111 EV::LOOP_ONESHOT block at most once (wait, but do not loop)
117 EV::LOOP_NONBLOCK do not block at all (fetch/handle events but do not wait) 112 EV::LOOP_NONBLOCK do not block at all (fetch/handle events but do not wait)
118 113
119=item EV::loop_done [$how] 114=item EV::unloop [$how]
120 115
121When called with no arguments or an argument of 1, makes the innermost 116When called with no arguments or an argument of EV::UNLOOP_ONE, makes the
122call to EV::loop return. 117innermost call to EV::loop return.
123 118
124When called with an agrument of 2, all calls to EV::loop will return as 119When called with an argument of EV::UNLOOP_ALL, all calls to EV::loop will return as
125fast as possible. 120fast as possible.
126 121
127=back 122=back
128 123
129=head2 WATCHER 124=head2 WATCHER
263Calls the callback after C<$after> seconds. If C<$repeat> is non-zero, 258Calls the callback after C<$after> seconds. If C<$repeat> is non-zero,
264the timer will be restarted (with the $repeat value as $after) after the 259the timer will be restarted (with the $repeat value as $after) after the
265callback returns. 260callback returns.
266 261
267This means that the callback would be called roughly after C<$after> 262This means that the callback would be called roughly after C<$after>
268seconds, and then every C<$repeat> seconds. "Roughly" because the time of 263seconds, and then every C<$repeat> seconds. The timer does his best not
269callback processing is not taken into account, so the timer will slowly 264to drift, but it will not invoke the timer more often then once per event
270drift. If that isn't acceptable, look at EV::periodic. 265loop iteration, and might drift in other cases. If that isn't acceptable,
266look at EV::periodic, which can provide long-term stable timers.
271 267
272The timer is based on a monotonic clock, that is if somebody is sitting 268The timer is based on a monotonic clock, that is, if somebody is sitting
273in front of the machine while the timer is running and changes the system 269in front of the machine while the timer is running and changes the system
274clock, the timer will nevertheless run (roughly) the same time. 270clock, the timer will nevertheless run (roughly) the same time.
275 271
276The C<timer_ns> variant doesn't start (activate) the newly created watcher. 272The C<timer_ns> variant doesn't start (activate) the newly created watcher.
277 273
282 278
283=item $w->again 279=item $w->again
284 280
285Similar to the C<start> method, but has special semantics for repeating timers: 281Similar to the C<start> method, but has special semantics for repeating timers:
286 282
283If the timer is active and non-repeating, it will be stopped.
284
287If the timer is active and repeating, reset the timeout to occur 285If the timer is active and repeating, reset the timeout to occur
288C<$repeat> seconds after now. 286C<$repeat> seconds after now.
289 287
290If the timer is active and non-repeating, it will be stopped.
291
292If the timer is in active and repeating, start it. 288If the timer is inactive and repeating, start it using the repeat value.
293 289
294Otherwise do nothing. 290Otherwise do nothing.
295 291
296This behaviour is useful when you have a timeout for some IO 292This behaviour is useful when you have a timeout for some IO
297operation. You create a timer object with the same value for C<$after> and 293operation. You create a timer object with the same value for C<$after> and
341possible time where C<$time = $at (mod $interval)>, regardless of any time 337possible time where C<$time = $at (mod $interval)>, regardless of any time
342jumps. 338jumps.
343 339
344=item * manual reschedule mode ($reschedule_cb = coderef) 340=item * manual reschedule mode ($reschedule_cb = coderef)
345 341
346In this mode $interval and $at are both being ignored. Instead, each time 342In this mode $interval and $at are both being ignored. Instead, each
347the periodic watcher gets scheduled, the first callback ($reschedule_cb) 343time the periodic watcher gets scheduled, the reschedule callback
348will be called with the watcher as first, and the current time as second 344($reschedule_cb) will be called with the watcher as first, and the current
349argument. 345time as second argument.
350 346
351I<This callback MUST NOT stop or destroy this or any other periodic 347I<This callback MUST NOT stop or destroy this or any other periodic
352watcher, ever>. If you need to stop it, return 1e30 and stop it 348watcher, ever>. If you need to stop it, return 1e30 and stop it
353afterwards. 349afterwards.
354 350
543}; 539};
544 540
545default_loop 541default_loop
546 or die 'EV: cannot initialise libev backend. bad $ENV{LIBEV_METHODS}?'; 542 or die 'EV: cannot initialise libev backend. bad $ENV{LIBEV_METHODS}?';
547 543
548push @AnyEvent::REGISTRY, [EV => "EV::AnyEvent"];
549
5501; 5441;
551 545
552=head1 SEE ALSO 546=head1 SEE ALSO
553 547
554 L<EV::DNS>, L<EV::AnyEvent>. 548 L<EV::DNS>.
555 549
556=head1 AUTHOR 550=head1 AUTHOR
557 551
558 Marc Lehmann <schmorp@schmorp.de> 552 Marc Lehmann <schmorp@schmorp.de>
559 http://home.schmorp.de/ 553 http://home.schmorp.de/

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines