File Coverage

blib/lib/Promise/Tiny/AnyEvent.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch			n/a
condition			n/a
subroutine	9	9	100.0
pod	0	2	0.0
total	33	35	94.2

package Promise::Tiny::AnyEvent;
use strict;
use warnings;

use parent 'Promise::Tiny';
use AnyEvent;
use Exporter qw(import);

our @EXPORT_OK = qw(promise);

sub promise {
    return __PACKAGE__->new(@_);
}

sub await {
    my ($self) = @_;
    my $cv = AnyEvent->condvar;
    $self->then(
        sub {
            my ($value) = @_;
            $cv->send($value);
        },
        sub {
            my ($reason) = @_;
            $cv->croak($reason);
        }
    );
    return $cv->recv;
}

1;