| … | |
… | |
| 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, 2, sub { |
15 | my $w = EV::timer 0, 3, sub { |
| 16 | warn "is called roughly every 2s (repeat = 2)"; |
16 | warn "is called as soon as possible, then every 3s"; |
| 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 { |
| … | |
… | |
| 35 | warn "sigquit received\n"; |
35 | warn "sigquit received\n"; |
| 36 | }; |
36 | }; |
| 37 | |
37 | |
| 38 | # CHILD/PID STATUS CHANGES |
38 | # CHILD/PID STATUS CHANGES |
| 39 | |
39 | |
| 40 | my $w = EV::child 666, 0, sub { |
40 | my $w = EV::child $pid, 0, sub { |
| 41 | my ($w, $revents) = @_; |
41 | my ($w, $revents) = @_; |
| 42 | my $status = $w->rstatus; |
42 | my $status = $w->rstatus; |
| 43 | }; |
43 | }; |
| 44 | |
44 | |
| 45 | # STAT CHANGES |
45 | # STAT CHANGES |
