wait-semaphore

#!/usr/bin/perl
use strict;
use warnings;
use Coro;
use Coro::AnyEvent;
use Coro::Semaphore;
use AnyEvent;
 
my @coros;
my $s = Coro::Semaphore->new;
for my $i (1..5) {
    $s->down;
    push @coros, async {
        my $w = AnyEvent->condvar;
        my $t = AnyEvent->timer(after => $i, cb => sub { $w->send });
        $w->recv;
        $s->up;
        warn "done $i";
    };
}

async { $s->wait; warn "all done"; exit };
 
AnyEvent->condvar->recv;