solve local blocking

ev2.pl

use AnyEvent;


my $cv = AE::cv;



my $t = AE::timer 2,0, sub{
    my $cv2 = AE::cv;
    my $cnt = 10;
    my $tot = 0;
    my $done = 0;

    $cv2->begin(sub{$done=1;});
    foreach(1..10){
        my $idx = $_;
        $cv2->begin;
        my $tt; $tt = AE::timer $idx,0,sub{
            print "$idx\n";
            $tot+=$idx;
            $cnt--;
            $cv2->end;
            undef($tt);
        }
    }
    $cv2->end;

    until($done){
        AnyEvent->_poll;
        print "idle\n";
    } # wait

    print "tot: $tot\n";

};



$cv->recv;
print "DONE\n";