File Coverage

blib/lib/Data/MessagePack/Boolean.pm
Criterion Covered Total %
statement 13 15 86.6
branch 2 2 100.0
condition n/a
subroutine 5 6 83.3
pod n/a
total 20 23 86.9


line stmt bran cond sub pod time code
1             package Data::MessagePack::Boolean;
2 36     36   222 use strict;
  36         58  
  36         985  
3 36     36   171 use warnings;
  36         57  
  36         3087  
4             use overload
5 4     4   189 'bool' => sub { ${ $_[0] } },
  4         13  
6 0     0   0 '0+' => sub { ${ $_[0] } },
  0         0  
7 536 100   536   283670 '""' => sub { ${ $_[0] } ? 'true' : 'false' },
  536         9606  
8              
9 36         426 fallback => 1,
10 36     36   24234 ;
  36         21009  
11              
12             our $true = do { bless \(my $dummy = 1) };
13             our $false = do { bless \(my $dummy = 0) };
14              
15             1;