File Coverage

blib/lib/JSON/backportPP/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 # This is JSON::backportPP
2             JSON::PP::Boolean;
3              
4 57     57   330 use strict;
  57         105  
  57         1849  
5 57     57   213 use warnings;
  57         88  
  57         2617  
6 57     57   238 use overload ();
  57         162  
  57         6908  
7             overload::unimport('overload', qw(0+ ++ -- fallback));
8             overload::import('overload',
9 18     18   1373 "0+" => sub { ${$_[0]} },
  18         85  
10 1     1   3 "++" => sub { $_[0] = ${$_[0]} + 1 },
  1         13  
11 0     0     "--" => sub { $_[0] = ${$_[0]} - 1 },
  0            
12             fallback => 1,
13             );
14              
15             our $VERSION = '4.18';
16              
17             1;
18              
19             __END__