| line |
true |
false |
branch |
|
43
|
0 |
0 |
if ($chk) |
|
44
|
0 |
0 |
if $str =~ s/([^\x00-\x7f].*)$//os |
|
47
|
0 |
0 |
if $chk |
|
60
|
0 |
2 |
if $chk |
|
63
|
1 |
1 |
if $h2z |
|
87
|
0 |
0 |
unless $esc |
|
|
0 |
0 |
unless ($chunk) |
|
89
|
0 |
0 |
if ($esc and not $esc_asc) { } |
|
|
0 |
0 |
elsif ((my $npos = index($chunk, $trm)) >= 0) { } |
|
91
|
0 |
0 |
if ($esc_kana) { } |
|
|
0 |
0 |
elsif ($esc_0212) { } |
|
124
|
0 |
0 |
unless ($esc_asc) |
|
126
|
0 |
0 |
if ($esc_kana) { } |
|
|
0 |
0 |
elsif ($esc_0212) { } |
|
147
|
0 |
2 |
$chunk =~ tr/\217//d ? : |
|
|
1 |
2 |
$chunk =~ tr/\216//d ? : |
|
151
|
0 |
3 |
if ($esc eq $Encode::EUCJPMS::ESC{'JIS_0212'} and not $jis0212) { } |