File Coverage

blib/lib/JSON/PP/Boolean.pm
Criterion Covered Total %
statement 13 15 86.6
branch n/a
condition n/a
subroutine 5 6 83.3
pod n/a
total 18 21 85.7


line stmt bran cond sub pod time code
1             package JSON::PP::Boolean;
2              
3 67     67   401 use strict;
  67         139  
  67         2767  
4 67     67   350 use warnings;
  67         110  
  67         3620  
5 67     67   319 use overload ();
  67         291  
  67         10311  
6             overload::unimport('overload', qw(0+ ++ -- fallback));
7             overload::import('overload',
8 5     5   24 "0+" => sub { ${$_[0]} },
  5         30  
9 1     1   3 "++" => sub { $_[0] = ${$_[0]} + 1 },
  1         12  
10 0     0     "--" => sub { $_[0] = ${$_[0]} - 1 },
  0            
11             fallback => 1,
12             );
13              
14             our $VERSION = '4.18';
15              
16             1;
17              
18             __END__