File Coverage

blib/lib/AnyEvent/Kanye.pm
Criterion Covered Total %
statement 21 21 100.0
branch n/a
condition 1 2 50.0
subroutine 8 8 100.0
pod 0 2 0.0
total 30 33 90.9


line stmt bran cond sub pod time code
1             package AnyEvent::Kanye;
2              
3 1     1   23078 use strict;
  1         3  
  1         25  
4 1     1   5 use warnings;
  1         1  
  1         23  
5              
6 1     1   4 use utf8;
  1         5  
  1         6  
7              
8 1     1   1404 use AnyEvent ();
  1         5152  
  1         29  
9 1     1   1286 use Lingua::EN::Inflect qw(PL);
  1         20272  
  1         137  
10              
11 1     1   154 BEGIN { our @ISA = "AnyEvent::CondVar" }
12              
13             our $VERSION = "0.02";
14              
15             sub condvar {
16 1     1 0 11 my ( $class, @args ) = @_;
17 1         8 bless( AnyEvent->condvar(@args), $class),
18             }
19              
20             sub send {
21 1     1 0 4934 my ( $self, $thing ) = @_;
22 1   50     7 my $name = ref($thing) || 'value';
23              
24 1         8 $self->SUPER::send(
25             "This $name is pretty good, and I'mma let " .
26             "you finish, but BeyoncĂ© had one of the best " .
27             PL($name) . " of all time!"
28             );
29             }
30              
31             __PACKAGE__
32              
33             __END__