> async {
> while(1) {
> $watcher = $Coro::current;
> Coro::schedule;
> $watcher = undef;
> while (my $task = shift @list) {
> async { \&cb; } @$task;
> }
> }
> };
тут только поменять местами надо собственно цикл и усыпление, а то
дедлок может получиться, сори
async {
while(1) {
while (my $task = shift @list) {
async { \&cb; } @$task;
}
$watcher = $Coro::current;
Coro::schedule;
$watcher = undef;
}
};
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org
