File Coverage

lib/Async/Trampoline.pm

Criterion	Covered	Total	%
statement	109	123	88.6
branch	8	8	100.0
condition			n/a
subroutine	26	43	60.4
pod	1	1	100.0
total	144	175	82.2

use strict;
use warnings;
use utf8;

package Async::Trampoline;

BEGIN {
    ## no critic
    our $VERSION = '0.001000';
    $VERSION = eval $VERSION;
    ## use critic
}

use XSLoader;
BEGIN { XSLoader::load __PACKAGE__, our $VERSION }

use Async::Trampoline::Scheduler;

use Exporter 'import';

our %EXPORT_TAGS = (
    all => [qw/
        await
        async
        async_value
        async_error
        async_cancel
        async_yield
    /],
);

our @EXPORT_OK = @{ $EXPORT_TAGS{all} };

use overload
    fallback => 1,
    q("") => sub {
        my ($self) = @_;
        return $self->to_string;
    };

sub gen_collect :method {
    my ($gen) = @_;
    my @acc;
    return $gen
        ->gen_foreach(sub { push @acc, @_; return async_value })
        ->value_then(async_value \@acc);
}

1;

__END__