Condition Coverage
blib/lib/JSON/ToHTML.pm
Criterion
Covered
Total
%
condition
1
4
25.0
or 2 conditions
line
l
!l
condition
18
0
3
s/([<>"'&\@\x{80}-\x{10FFFF}])/'' . ord($1) . ';';/eg || 1
27
0
0
$keyset eq join(":", map((length($_) . $_), sort(keys %$_))) or return