File Coverage

blib/lib/Future/IO/Impl/AnyEvent/Future.pm
Criterion Covered Total %
statement 20 20 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 1 1 100.0
total 28 28 100.0


line stmt bran cond sub pod time code
1             package Future::IO::Impl::AnyEvent::Future;
2              
3 7     7   35 use strict;
  7         11  
  7         174  
4 7     7   59 use warnings;
  7         11  
  7         224  
5 7     7   78 use 5.014;
  7         24  
6              
7 7     7   19 use base 'Future';
  7         10  
  7         614  
8              
9 7     7   35 use AnyEvent;
  7         7  
  7         844  
10              
11             our $VERSION = 0.03;
12              
13             sub await {
14 90     90 1 8084 my ($self) = @_;
15 90         3280 my $cv = AE::cv;
16 90     90   2022 $self->on_ready(sub { $cv->send });
  90         11613  
17 90         2163 $cv->recv;
18 90         3218 return $self;
19             }
20              
21             1;
22              
23             __END__