AnyEvent::CondVar 5.201

AnyEvent.pm

# see AnyEvent.pm for full source code
our $WAITING;

sub _wait {
    $WAITING
        and !$_[0]{_ae_sent}
        and Carp::croak "AnyEvent::CondVar: recursive blocking wait detected";

    local $WAITING = 1;
    AnyEvent->one_event while !$_[0]{_ae_sent};
}

sub recv {
    $_[0]->_wait;

    Carp::croak $_[0]{_ae_croak} if $_[0]{_ae_croak};
    wantarray ? @{ $_[0]{_ae_sent} } : $_[0]{_ae_sent}[0]
}