Что означает send / recv / begin / end для condvar AnyEvent?

Question

Я в недоумении, что это значит, хотя я прочитал несколько примеров:

#!/usr/bin/perl
use strict;
use AnyEvent;

my $cv = AnyEvent->condvar( cb => sub {
    warn "done";
});

for my $i (1..10) {
    $cv->begin;
    my $w; $w = AnyEvent->timer(after => $i, cb => sub {
    warn "finished timer $i";
    undef $w;
    $cv->end;
    });
}

$cv->recv;

Может кто-нибудь объяснить более подробно, что делает send/recv/begin/end?

UPDATE

my $i = 1;
my $s = sub {
    print $i;
};
my $i = 10;
$s->();  # 1

Answer 1

В указанном вами коде есть condvar для предотвращения преждевременного выхода из программы. Без recv программа прекратит работу до того, как таймеры смогут сработать. С recv все десять таймеров должны сработать до того, как recv вернется.

recv заблокируется, если send никогда не вызывался. Он будет разблокирован при вызове send.

begin и end является альтернативой использованию send. Когда было end вызовов столько же, сколько было begin вызовов, происходит send.

AnyEvent