File Coverage

blib/lib/Argon/Async.pm
Criterion Covered Total %
statement 15 16 93.7
branch n/a
condition n/a
subroutine 6 7 85.7
pod n/a
total 21 23 91.3


line stmt bran cond sub pod time code
1             package Argon::Async;
2             #ABSTRACT: A tied condvar that calls recv on FETCH
3             $Argon::Async::VERSION = '0.18';
4              
5 3     3   267853 use strict;
  3         19  
  3         116  
6 3     3   25 use warnings;
  3         11  
  3         118  
7 3     3   25 use Carp;
  3         9  
  3         229  
8              
9 3     3   389 use parent 'Tie::Scalar';
  3         339  
  3         29  
10              
11 1     1   5069 sub TIESCALAR { bless \$_[1], $_[0] }
12 0     0   0 sub STORE { croak 'Argon::Async is read only' }
13 1     1   118 sub FETCH { ${$_[0]}->recv }
  1         21  
14              
15             1;
16              
17             __END__
18              
19             =pod
20              
21             =encoding UTF-8
22              
23             =head1 NAME
24              
25             Argon::Async - A tied condvar that calls recv on FETCH
26              
27             =head1 VERSION
28              
29             version 0.18
30              
31             =head1 DESCRIPTION
32              
33             A tied condvar (see L<AnyEvent/CONDITION VARIABLES>) that calls C<recv> on
34             C<FETCH>.
35              
36             =head1 AUTHOR
37              
38             Jeff Ober <sysread@fastmail.fm>
39              
40             =head1 COPYRIGHT AND LICENSE
41              
42             This software is copyright (c) 2017 by Jeff Ober.
43              
44             This is free software; you can redistribute it and/or modify it under
45             the same terms as the Perl 5 programming language system itself.
46              
47             =cut