Condition Coverage

blib/lib/Unicode/Japanese.pm
Criterion Covered Total %
condition 49 111 44.1


and 3 conditions

line !l l&&!r l&&r condition
434 0 0 4 $l >= 161 && $l <= 223
0 0 74 $l >= 33024 && $l <= 40959
4 0 56 $l >= 57344 && $l <= 65535
0 1 3 $l >= 161 && $l <= 223
0 0 51 $l >= 33024 && $l <= 40959
0 0 0 $l >= 57344 && $l <= 65535
0 0 0 $l % 4 == 0 and $str =~ /^(?:$Unicode::Japanese::PurePerl::RE{'BOM4_BE'}|$Unicode::Japanese::PurePerl::RE{'BOM4_LE'})/o
6 0 50 $l % 2 == 0 and $str =~ /^(?:$Unicode::Japanese::PurePerl::RE{'BOM2_BE'}|$Unicode::Japanese::PurePerl::RE{'BOM2_LE'})/o
10 39 0 1040384 <= $ch and $ch <= 1048575
0 6 0 $1 > 0 && $1 <= 330
0 0 6 $1 > 0 && $1 <= 822
0 0 0 $l >= 161 && $l <= 223
2 0 0 $l >= 33024 && $l <= 40959
0 2 27 $l >= 57344 && $l <= 64767
0 0 2 $l >= 161 && $l <= 223
0 0 30 $l >= 33024 && $l <= 40959
0 0 0 $l >= 60160 && $l <= 61183
2 0 0 $l >= 57344 && $l <= 64767
0 2 0 $l >= 161 && $l <= 223
0 0 2 $l >= 33024 && $l <= 40959
0 0 30 $l >= 60160 && $l <= 61183
1 0 35 $l >= 57344 && $l <= 64767
0 0 17 $2 >= 61440 && $2 <= 62719

or 2 conditions

line l !l condition
434 77 0 10 substr($Unicode::Japanese::PurePerl::ei2u1, $sjisoffset * 4, 4) || '?'
5 0 0 substr($Unicode::Japanese::PurePerl::ei2u2, $sjisoffset * 4, 4) || '?'

or 3 conditions

line l !l&&r !l&&!r condition
45 0 1 3 $exp{$_} or $exp{'&' . $_}
49 0 1 0 $exp{$_} || $exp{'&' . $_}
434 266 22 1217 $icode eq 'euc' or $icode eq 'euc-jp'
88 193 1227 $icode eq 'sjis' or $icode eq 'cp932'
176 76 0 $Unicode::Japanese::PurePerl::S2U{$sjisbin} ||= substr($Unicode::Japanese::PurePerl::ei2u1, $sjisoffset * 4, 4) || '?'
0 5 0 $Unicode::Japanese::PurePerl::S2U{$sjisbin} ||= substr($Unicode::Japanese::PurePerl::ei2u2, $sjisoffset * 4, 4) || '?'
0 4 1 unpack('n', $1) || unpack('C', $1)
0 4 0 unpack('n', $1) || unpack('C', $1)
0 0 25 unpack('n', $1) || unpack('C', $1)
0 2 0 unpack('n', $1) || unpack('C', $1)
0 2 27 unpack('n', $1) || unpack('C', $1)
1 0 15 unpack('n', $1) || unpack('C', $1)