| Current Path : /usr/share/doc/perl-Event/demo/ |
| Current File : //usr/share/doc/perl-Event/demo/rand_interval.t |
#!/usr/bin/perl -w
# contributed by jsalmon@gw.thesalmons.org
use Event qw(loop);
require Event::timer;
$w = Event->timer(interval => 1, parked=>1);
$w->cb(sub {
my $next = rand(10);
print(scalar localtime(Event::time()), ": waiting ",
$next, " sec\n");
$w->interval($next);
});
$w->start;
loop();