Branch Coverage

blib/lib/Encode/Detect/CJK.pm
Criterion Covered Total %
branch 103 190 54.2


line true false branch
7905 1 10 unless (defined $_[0])
7912 2 8 defined $_[1] && $len > $_[1] ? :
7913 0 10 defined $_[2] && !$_[2] ? :
7917 0 10 unless ($use_det2)
7921 4 6 if (in_safe_list($det1)) { }
7926 3 3 if (defined $det2) { }
7935 0 10 if ($@) { }
7947 1 9 if (${$_[0];} eq '')
7954 1 8 if (($$ai[$$_encoding{'utf8'}] = utf8_probability($bytes)) == 100)
7957 2 6 if (($$ai[$$_encoding{'iso-2022-jp'}] = iso_2022_jp_probability($bytes)) == 100)
7966 0 6 if (($$ai[$$_encoding{'iso-2022-kr'}] = iso_2022_kr_probability($bytes)) == 100)
7975 0 6 if (($$ai[$$_encoding{'utf16'}] = utf16_probability($bytes)) == 100)
7979 0 6 if (($$ai[$$_encoding{'ascii'}] = ascii_probability($bytes)) == 100)
7983 0 6 if (($$ai[$$_encoding{'cp936'}] = gbk_probability($bytes)) == 100)
7986 0 6 if (($$ai[$$_encoding{'big5-eten'}] = big5_probability($bytes)) == 100)
7991 0 6 if (($$ai[$$_encoding{'euc-jp'}] = euc_jp_probability($bytes)) == 100)
7996 0 6 if (($$ai[$$_encoding{'shiftjis'}] = sjis_probability($bytes)) == 100)
8001 0 6 if (($$ai[$$_encoding{'euc-kr'}] = euc_kr_probability($bytes)) == 100)
8008 9 63 if ($$ai[$i] > $j)
8013 0 6 if ($j <= 50)
8018 3 3 if (${$_[0];} =~ /charset\s*=\s*([A-Za-z0-9\-\_]+)/i) { }
8020 0 3 if ($charset eq '' or $charset eq 'iso-8859-1') { }
8037 0 0 unless (defined $_[0])
8044 0 0 defined $_[1] && $len > $_[1] ? :
8052 0 0 if (in_safe_list($det1)) { }
8065 0 0 if (defined $det2) { }
8094 0 0 $skip ? :
8095 0 0 if ($num == 100)
8100 0 0 $skip ? :
8101 0 0 if ($num == 100)
8103 0 0 if ($num == 100)
8107 0 0 $skip ? :
8108 0 0 if ($num == 100)
8111 0 0 $skip ? :
8112 0 0 if ($num == 100)
8115 0 0 $skip ? :
8116 0 0 if ($num == 100)
8119 0 0 $skip ? :
8120 0 0 if ($num == 100)
8123 0 0 $skip ? :
8124 0 0 if ($num == 100)
8127 0 0 $skip ? :
8128 0 0 if ($num == 100)
8131 0 0 $skip ? :
8132 0 0 if ($num == 100)
8135 0 0 $skip ? :
8138 0 0 if ($$ai[$i] > $j)
8143 0 0 if ($j <= 50)
8150 0 0 if (${$_[0];} =~ /charset\s*=\s*([A-Za-z0-9\-\_]+)/i) { }
8153 0 0 if ($charset eq '' or $charset eq 'iso-8859-1') { }
8174 4 6 if ($_[0] == $$_encoding{'utf8'} or $_[0] == $$_encoding{'cp936'} or $_[0] == $$_encoding{'shiftjis'} or $_[0] == $$_encoding{'euc-jp'} or $_[0] == $$_encoding{'utf16'}) { }
8189 0 3 if ('euc-cn' eq $_[0]) { }
3 0 elsif ('gb18030' eq $_[0]) { }
0 0 elsif ('utf-8-strict' eq $_[0]) { }
8205 3 0 if ($_[0] =~ /gb18030/i) { }
8210 0 0 $rtn ? :
8216 1 9 if ('ascii' eq $_[0]) { }
8229 45 42 if ($$bytes[$j] < 0) { }
0 42 elsif ($$bytes[$j] == 27) { }
8238 3 84 if ($i <= 0)
8253 164 99 if ($$bytes[$j] >= 0 and $$bytes[$j] < 128)
8257 13 10 if (-64 <= $$bytes[$j] and $$bytes[$j] <= -33 and $j + 1 < $k and -128 <= $$bytes[$j + 1] and $$bytes[$j + 1] <= -65)
8267 23 5 if (-32 <= $$bytes[$j] and $$bytes[$j] <= -17 and $j + 2 < $k and -128 <= $$bytes[$j + 1] and $$bytes[$j + 1] <= -65 and -128 <= $$bytes[$j + 2] and $$bytes[$j + 2] <= -65)
8280 5 4 if ($i1 == $k)
8285 1 3 if ($i > 98)
8289 0 3 if ($i > 95 and $l > 30) { }
8299 6 0 (scalar @$bytes <= 1 || -2 != $$bytes[0] || -1 != $$bytes[1]) && (-1 != $$bytes[0] || -2 != $$bytes[1]) ? :
8315 32 57 if ($$bytes[$i] >= 0)
8319 32 25 if (-95 <= $$bytes[$i] and $$bytes[$i] <= -9 and -95 <= $$bytes[$i + 1] and $$bytes[$i + 1] <= -2) { }
25 0 elsif (-127 <= $$bytes[$i] and $$bytes[$i] <= -2 and -128 <= $$bytes[$i + 1] && $$bytes[$i + 1] <= -2 || 64 <= $$bytes[$i + 1] && $$bytes[$i + 1] <= 126) { }
8329 6 26 if ($$GBFreq[$i1][$k1] != 0) { }
11 15 elsif (15 <= $i1 and $i1 < 55) { }
8349 13 12 if (64 <= $$bytes[$i + 1] and $$bytes[$i + 1] <= 126) { }
8355 3 22 if ($$GBKFreq[$j1][$i2] != 0)
8382 32 57 if ($$bytes[$i] >= 0)
8386 36 0 if (-95 <= $$bytes[$i] and $$bytes[$i] <= -7 and 64 <= $$bytes[$i + 1] && $$bytes[$i + 1] <= 126 || -95 <= $$bytes[$i + 1] && $$bytes[$i + 1] <= -2)
8397 4 32 if (64 <= $$bytes[$i + 1] and $$bytes[$i + 1] <= 126) { }
8404 2 34 if ($$Big5Freq[$i1][$j1] != 0) { }
23 12 elsif (3 <= $i1 and $i1 <= 37) { }
8432 32 57 if ($$bytes[$i] >= 0)
8436 32 4 if (-95 <= $$bytes[$i] and $$bytes[$i] <= -2 and -95 <= $$bytes[$i + 1] and $$bytes[$i + 1] <= -2)
8445 24 8 if ($$JPFreq[$i1][$j1] != 0) { }
8 0 elsif (15 <= $i1 and $i1 < 55) { }
8468 0 0 if ($i + 3 < $len and $$bytes[$i] == 27 and $$bytes[$i + 1] == 36 and $$bytes[$i + 2] == 41 and $$bytes[$i + 3] == 67)
8484 2 0 if ($i + 2 < $len and $$bytes[$i] == 27 and $$bytes[$i + 1] == 36 and $$bytes[$i + 2] == 66)
8507 35 77 if ($$bytes[$i] >= 0)
8511 32 0 if ($i + 1 < $j and -127 <= $$bytes[$i] && $$bytes[$i] <= -97 || -32 <= $$bytes[$i] && $$bytes[$i] <= -17 and 64 <= $$bytes[$i + 1] && $$bytes[$i + 1] <= 126 || -128 <= $$bytes[$i + 1] && $$bytes[$i + 1] <= -4)
8524 6 26 if ($j1 < 159) { }
8526 6 0 if ($j1 > 127) { }
8537 21 11 if ($i1 < 160) { }
8545 2 30 if ($i1 < 94 and $j1 < 94 and $$JPFreq[$i1][$j1] != 0)
8575 32 57 if ($$bytes[$i] >= 0)
8579 32 4 if (-95 <= $$bytes[$i] and $$bytes[$i] <= -2 and -95 <= $$bytes[$i + 1] and $$bytes[$i + 1] <= -2)
8588 4 28 if ($$KRFreq[$i1][$j1] != 0) { }
13 15 elsif (15 <= $i1 and $i1 < 55) { }