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 11     11   35 use strict;
  11         10  
  11         250  
3 11     11   32 use warnings;
  11         11  
  11         845  
4             use overload
5 2     2   29 'bool' => sub { ${ $_[0] } },
  2         4  
6 0     0   0 '0+' => sub { ${ $_[0] } },
  0         0  
7 268 100   268   135058 '""' => sub { ${ $_[0] } ? 'true' : 'false' },
  268         4792  
8              
9 11         89 fallback => 1,
10 11     11   41 ;
  11         12  
11              
12             our $true = do { bless \(my $dummy = 1) };
13             our $false = do { bless \(my $dummy = 0) };
14              
15             1;