File Coverage

blib/lib/JSON/PP/Boolean.pm
Criterion Covered Total %
statement 9 15 60.0
branch n/a
condition n/a
subroutine 3 6 50.0
pod n/a
total 12 21 57.1


line stmt bran cond sub pod time code
1             package JSON::PP::Boolean;
2              
3 65     65   453 use strict;
  65         136  
  65         1996  
4 65     65   330 use warnings;
  65         128  
  65         1784  
5 65     65   349 use overload ();
  65         115  
  65         9611  
6             overload::unimport('overload', qw(0+ ++ -- fallback));
7             overload::import('overload',
8 0     0     "0+" => sub { ${$_[0]} },
  0            
9 0     0     "++" => sub { $_[0] = ${$_[0]} + 1 },
  0            
10 0     0     "--" => sub { $_[0] = ${$_[0]} - 1 },
  0            
11             fallback => 1,
12             );
13              
14             our $VERSION = '4.17_01';
15              
16             1;
17              
18             __END__