Branch Coverage

blib/lib/ShiftJIS/Collate.pm
Criterion Covered Total %
branch 98 124 79.0


line true false branch
21 4 101 if ($$self{'kanji'} == 3)
22 0 4 unless $$self{'tounicode'} and ref $$self{'tounicode'} eq 'CODE'
25 1 104 if (exists $$self{'overrideCJK'})
751 0 0 wantarray ? :
756 25 1 $w <= 252 ? :
174 26 $w == 121 ? :
55 200 $w == 120 ? :
117 255 $w == 119 ? :
14 372 $w == 118 ? :
11 386 $w == 117 ? :
30 397 $w == 116 ? :
45 427 $w == 115 ? :
22 472 $w == 114 ? :
24 494 $w == 113 ? :
1 518 $w == 112 ? :
0 519 $w < 112 ? :
784 0 492 unless 31041 <= $p and $p <= 31190
789 2 392 $d == 6 ? :
0 6 $d == 6 ? :
0 3 $c eq "\201S" && $n =~ /^\x79[\x43\x51-\x55\x61-\x65\x71-\x75\x91-\x95]/ ? :
24 3 $c eq "\201U" && $n =~ /^\x79[\x51-\x55\x61-\x65\x71-\x75\x91-\x95]/ ? :
26 27 $c eq "\201R" ? :
39 53 $c eq "\201T" ? :
6 92 $c eq "\260" ? :
394 98 $c eq "\201[" ? :
814 4 25503 if ($$self{'kanji'} == 3) { }
816 0 4 unless 19968 <= $u and $u <= 40959
827 7 31154 $$self{'preprocess'} ? :
831 0 31161 unless ($str =~ /^(?:$Char)*$/o)
837 281 25504 unless $Order{$c} or $kan > 1 and $c =~ /^$CJK$/o
838 3 34101 if defined $ign and $c =~ /$ign/
841 484 33617 if $Replaced{$c} and @buf
843 25504 0 $kan > 1 ? :
8116 25504 $Order{$c} ? :
481 33620 $replaced ? :
848 15 31146 wantarray ? :
857 31146 0 if 0 < $lev
858 30108 1038 if 1 < $lev
859 30018 1128 if 2 < $lev
860 29714 1432 if 3 < $lev
861 8 31138 if 4 < $lev
864 106 31040 if 2 < $lev and $$self{'upper_before_lower'}
868 168 30978 if 3 < $lev and $$self{'katakana_before_hiragana'}
900 0 7 unless $yomi{$$a[1]} cmp $yomi{$$b[1]}
918 0 26 unless $class{$$a[0]} <=> $class{$$b[0]} or $daihyo{$$a[1]} <=> $daihyo{$$b[1]} or $kashira{$$a[0]} <=> $kashira{$$b[0]} or $yomi{$$a[1]} cmp $yomi{$$b[1]}
931 0 15 $$self{'preprocess'} ? :
939 0 0 wantarray ? :
0 15 unless @subWt
940 0 0 wantarray ? :
0 15 if $str eq ''
942 0 15 unless ($str =~ /^(?:$Char)*$/o)
950 0 172 if defined $ign and $c =~ /$ign/
951 166 6 if ($Order{$c} or $kan > 1 and $c =~ /^$CJK$/o)
952 8 158 if $Replaced{$c} and @strWt
953 3 0 $kan > 1 ? :
155 3 $Order{$c} ? :
957 166 6 if ($cur)
961 172 0 $byte ? :
964 12 134 if (&_eqArray(\@strWt, \@subWt, $lev))
966 12 0 wantarray ? :
972 3 0 wantarray ? :
985 134 33 if substr($$a[$c], 0, $len) ne substr($$b[$c], 0, $len)