| … | … | ||
|---|---|---|---|
| 15 | my $timer = EV::timer_ns 1, 0.3, sub { print "ok 7\n"; $_[0]->stop }; | 15 | my $timer = EV::timer_ns 1, 0.3, sub { print "ok 7\n"; $_[0]->stop }; |
| 16 | 16 | ||
| 17 | $timer->keepalive (1); | 17 | $timer->keepalive (1); |
| 18 | 18 | ||
| 19 | print "ok 1\n"; | 19 | print "ok 1\n"; |
| 20 | EV::loop; | 20 | EV::run; |
| 21 | print "ok 2\n"; | 21 | print "ok 2\n"; |
| 22 | 22 | ||
| 23 | $timer->start; | 23 | $timer->start; |
| 24 | 24 | ||
| 25 | $timer->keepalive (0); | 25 | $timer->keepalive (0); |
| … | … | ||
| 30 | 30 | ||
| 31 | my $timer2 = EV::timer -1, 0, sub { print "ok 4\n" }; | 31 | my $timer2 = EV::timer -1, 0, sub { print "ok 4\n" }; |
| 32 | $timer2->keepalive (0); | 32 | $timer2->keepalive (0); |
| 33 | 33 | ||
| 34 | print "ok 3\n"; | 34 | print "ok 3\n"; |
| 35 | EV::loop; | 35 | EV::run; |
| 36 | print "ok 5\n"; | 36 | print "ok 5\n"; |
| 37 | 37 | ||
| 38 | $timer->keepalive (1); | 38 | $timer->keepalive (1); |
| 39 | 39 | ||
| 40 | print "ok 6\n"; | 40 | print "ok 6\n"; |
| 41 | EV::loop; | 41 | EV::run; |
| 42 | print "ok 8\n"; | 42 | print "ok 8\n"; |
| 43 | 43 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |