AnyEvent Timer and Idle Watcher

ae_timer_and_idle_watcher.pl

#!/usr/bin/env perl

use strict;
use warnings;
use AnyEvent;

my $cv = AnyEvent->condvar;

for my $i (1..10) {
    $cv->begin;
    my $after = int(rand(2)) + 1;
    warn "[begin] times: $i. after: $after";
    my $timer; $timer = AnyEvent->timer(
        after => $after,
        cb => sub {
            warn "[end]  times: $i. after: $after";
            undef $timer;
            $cv->end;
        }
    );

    my $idle; $idle = AnyEvent->idle(
        cb => sub {
            if ($timer) {
                warn "[idle] times: $i. after: $after";
            }
            else {
                undef $idle;
            }
        }
    );
}

$cv->recv;