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 64     64   467 use strict;
  64         133  
  64         1876  
4 64     64   340 use warnings;
  64         132  
  64         1766  
5 64     64   332 use overload ();
  64         154  
  64         10082  
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.16';
15              
16             1;
17              
18             __END__