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.17';
4              
5 3     3   174499 use strict;
  3         15  
  3         99  
6 3     3   19 use warnings;
  3         6  
  3         86  
7 3     3   19 use Carp;
  3         7  
  3         177  
8              
9 3     3   371 use parent 'Tie::Scalar';
  3         346  
  3         21  
10              
11 1     1   3728 sub TIESCALAR { bless \$_[1], $_[0] }
12 0     0   0 sub STORE { croak 'Argon::Async is read only' }
13 1     1   56 sub FETCH { ${$_[0]}->recv }
  1         11  
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.17
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