Condition Coverage

blib/lib/JSON/PP.pm
Criterion Covered Total %
condition 189 275 68.7


and 3 conditions

line !l l&&!r l&&r condition
210 2 0 2 builtin::is_bool($true) and builtin::is_bool($false)
2 1 1 builtin::is_bool($true) and builtin::is_bool($false) and $true
1 0 1 builtin::is_bool($true) and builtin::is_bool($false) and $true and not $false
258 2 0 3 exists $self->{'true'} and exists $self->{'false'}
265 1 0 2 defined $_[1] and ref $_[1] eq "CODE"
278 1 0 3 defined $_[2] and ref $_[2] eq "CODE"
364 15 1 1 $self->{'PROPS'}[19] and $obj->can("FREEZE")
368 0 1 0 @results and ref $results[0]
379 4 4 8 $self->{'PROPS'}[10] and $obj->can("TO_JSON")
381 0 6 2 defined $result and ref $result
393 5 0 3 $self->{'PROPS'}[13] and _is_bignum($obj)
453 2 24987 0 $pre eq '' && $self->{'PROPS'}[6]
486 20 0 20 builtin::blessed($value) and $value->isa("JSON::PP::Boolean")
504 10 3 7 $type eq "SCALAR" and defined $$value
683 1 2 12454 $octets[0] && $octets[1]
2 0 1 !$octets[0] && $octets[1]
704 12454 20 3 $encoding ne "UTF-8" and $encoding ne "unknown"
768 1039 0 2 $self->{'PROPS'}[15] and $ch eq "'"
783 5 0 4 $self->{'PROPS'}[15] and $ch eq "'"
888 145928 103 0 $self->{'PROPS'}[11] and $ch eq "/"
893 0 0 0 defined $ch and $ch eq "/"
0 0 0 defined $ch and $ch eq "*"
894 0 0 0 defined($ch = $self->_next_chr) and $ch ne "\n"
0 0 0 defined($ch = $self->_next_chr) and $ch ne "\n" and $ch ne "\r"
901 0 0 0 defined($ch = $self->_next_chr) and $ch eq "/"
922 145928 94 9 $self->{'PROPS'}[11] and $ch eq "#"
947 0 26290 23 defined $ch and $ch eq "]"
977 815 9 2 $self->{'PROPS'}[11] and $ch eq "]"
986 3 0 3 defined $ch and $ch ne ""
1033 0 2252 9 defined $ch and $ch eq "}"
1043 3740 0 2 $self->{'PROPS'}[14] && $ch ne '"' && $ch ne q[']
1076 1491 0 1 $self->{'PROPS'}[11] and $ch eq "}"
1089 3 0 5 defined $ch and $ch ne ""
1149 0 1 40 defined $ch and $ch =~ /\d/
1164 8 932 1038 defined $ch and $ch =~ /\d/
1169 8 883 49 defined $ch and $ch eq "."
1174 1 0 48 defined $ch && $ch =~ /\d/
1181 2 46 97 defined($ch = $self->_next_chr) and $ch =~ /\d/
1186 10 892 37 defined $ch and $ch eq 'e' || $ch eq 'E'
1191 1 19 38 defined $ch and $ch eq '+' || $ch eq '-'
1 1 18 defined $ch and $ch =~ /\d/
1206 16 38 33 defined($ch = $self->_next_chr) and $ch =~ /\d/
1328 0 4 5 $self->{'cb_sk_object'} and @ks == 1
4 1 4 $self->{'cb_sk_object'} and @ks == 1 and exists $self->{'cb_sk_object'}{$ks[0]}
5 0 4 $self->{'cb_sk_object'} and @ks == 1 and exists $self->{'cb_sk_object'}{$ks[0]} and ref $self->{'cb_sk_object'}{$ks[0]}
1467 23 370 1 $self->{'incr_nest'} <= 0 and $self->{'incr_mode'} == 3
1470 390 1 1 $max_size and $self->{'incr_pos'} > $max_size
1473 33 50 308 $self->{'incr_nest'} <= 0 and $self->{'incr_mode'} == 3
1475 37 39 7 $self->{'incr_mode'} == 0 and $self->{'incr_pos'}
1551 35 0 1 $p >= $len and $self->{'incr_nest'}
1554 0 35 105 defined $s and $s =~ /[rueals]/
1563 394 2 3 $p >= $len and $self->{'incr_nest'}
1566 0 389 93 defined $s and $s =~ /[0-9eE.+\-]/

or 2 conditions

line l !l condition
48 0 67 $ENV{'PERL_JSON_PP_USE_B'} || 0
565 0 0 builtin::reftype($_[1]) || ''
823 1127976 0 _decode_surrogates($utf16, $u) || (next)
834 2891847 0 _decode_unicode($u) || (next)
938 0 26316 $_[0] || []
1024 0 2261 $_[0] || {}
1490 298 0 $offset || 0

or 3 conditions

line l !l&&r !l&&!r condition
111 191 0 0 $JSON ||= __PACKAGE__->new->utf8
116 6206 67 0 $JSON ||= __PACKAGE__->new->utf8
270 2 1 0 $_[0]{'cb_object'} || $_[0]{'cb_sk_object'}
275 0 0 4 @_ == 1 or @_ > 3
284 4 0 0 $_[0]{'cb_object'} || $_[0]{'cb_sk_object'}
289 0 0 0 not defined $_[1] or $_[1] > 15
0 0 0 not defined $_[1] or $_[1] > 15 or $_[1] < 0
338 25070 78 0 ref $obj or $props->[7]
365 1 0 0 ref $obj || $obj
515 2 4 3 $type eq "SCALAR" or $type eq "REF"
683 2 0 0 $octets[0] || $octets[1]
696 1 3 25332 not defined $text or ref $text
733 25048 198 5 $props->[7] or ref $result
768 26559 4 1037 $ch eq "\"" or $self->{'PROPS'}[15] and $ch eq "'"
769 905 41 93 $ch =~ /[0-9]/ or $ch eq "-"
783 30292 5 4 $ch eq "\"" or $self->{'PROPS'}[15] and $ch eq "'"
866 4 0 0 not $self->{'PROPS'}[11] or $ch ne "\t"
888 25330 29340 146031 $ch eq "" or $ch =~ /\A[ \t\r\n]\z/
1004 0 0 1 not defined $ch or $ch ne ")"
1047 1 2 3734 not defined $ch or $ch ne ":"
1186 33 25 871 $ch eq 'e' || $ch eq 'E'
1191 32 6 19 $ch eq '+' || $ch eq '-'
1194 0 2 36 not defined $ch or $ch =~ /\D/
1214 48 22 865 $is_dec or $is_exp
1372 687 57 0 $_[0]{'_incr_parser'} ||= "JSON::PP::IncrParser"->new
1377 2 0 0 $_[0]{'_incr_parser'} ||= "JSON::PP::IncrParser"->new
1382 0 0 0 $_[0]{'_incr_parser'} ||= "JSON::PP::IncrParser"->new
1386 304 0 0 $_[0]{'_incr_parser'} ||= "JSON::PP::IncrParser"->new
1407 2 0 0 $_[0]->isa('JSON::PP::Boolean') || $_[0]->isa('Types::Serialiser::BooleanBase') || $_[0]->isa('JSON::XS::Boolean')
1520 6 3 2740 $mode == 4 or $mode == 5
1597 1 0 2889 $s eq "t" or $s eq "f"
1 35 2854 $s eq "t" or $s eq "f" or $s eq "n"
188 195 1290 $s eq "[" or $s eq "{"
185 184 921 $s eq "]" or $s eq "}"