File Coverage

blib/lib/AnyEvent/JSONRPC/Lite/CondVar.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 2 2 100.0
total 23 23 100.0


line stmt bran cond sub pod time code
1             package AnyEvent::JSONRPC::Lite::CondVar;
2 9     9   53 use Any::Moose;
  9         18  
  9         55  
3              
4 9     9   4320 use AnyEvent;
  9         18  
  9         649  
5              
6             has _cv => (
7             is => 'ro',
8             isa => 'AnyEvent::CondVar',
9             default => sub {
10             AnyEvent->condvar;
11             },
12             );
13              
14 9     9   49 no Any::Moose;
  9         17  
  9         48  
15              
16             sub _cb {
17 12     12   30 my ($self, $cb) = @_;
18 12         79 $self->_cv->cb($cb);
19             }
20              
21             sub result {
22 11     11 1 821361 my ($self, @result) = @_;
23 11         129 $self->_cv->send( result => @result);
24             }
25              
26             sub error {
27 1     1 1 7 my ($self, @error) = @_;
28 1         5 $self->_cv->send( error => @error);
29             }
30              
31             __PACKAGE__->meta->make_immutable;
32              
33             __END__