| line |
true |
false |
branch |
|
100
|
1 |
0 |
unless (length $input) |
|
129
|
3 |
44 |
unless length $remainder |
|
132
|
3 |
41 |
if (length $input < length $remainder) |
|
144
|
3 |
1 |
if (length $longest_bytes) { } |
|
145
|
3 |
0 |
if ($esc eq "\e)I") { } |
|
|
0 |
0 |
elsif (length $esc == 3) { } |
|
147
|
1 |
2 |
unless ($longest_bytes =~ /[\x80-\xFF]/) |
|
150
|
1 |
2 |
if ($longest_bytes =~ /[\x00-\x7F]/) |
|
168
|
1 |
0 |
if ($use_utf8) |
|
171
|
1 |
0 |
if (_encodable_char(substr($str, $ulen, 1))) |
|
183
|
0 |
1 |
if (length $input) { } |
|
191
|
0 |
0 |
if ($chk) { } |
|
205
|
5 |
0 |
if ($chk) |
|
213
|
0 |
0 |
if ($$self{'gl_non_ascii'}) { } |
|
307
|
0 |
18 |
unless $bytes =~ /\G(.*?) # $1 part
(\x1B # $2 esc
(?:[\x28\x29\x2D]. # 1-byte 94, 94GR, or 96GR
|\x24[\x28\x29\x2D]. # 2-byte 94^2 or 96^2
|\x25[\x47\x40] # xfree86 utf-8
)
|$)
/gx |
|
325
|
2 |
26 |
if ($in_utf8 and length $part_bytes and not pos $part_bytes) { } |
|
|
3 |
23 |
elsif ($part_bytes =~ /\G([\x00-\x7F]+)/cg) { } |
|
|
5 |
18 |
elsif ($part_bytes =~ /\G([^\x00-\x7F]+)/cg) { } |
|
335
|
0 |
3 |
if ($coding_is_hi{$coding}) |
|
342
|
1 |
4 |
if ($coding_is_lo{$coding}) |
|
355
|
10 |
0 |
$chk ? : |
|
360
|
0 |
10 |
if (length $half_bytes) |
|
362
|
0 |
0 |
if ($chk) { } |
|
381
|
2 |
16 |
if ($esc eq "\e%G") |
|
385
|
2 |
14 |
if ($esc eq "\e%\@") |
|
392
|
4 |
10 |
if ($esc =~ s/\x1B\x29/\e(/ or $esc =~ s/\x1B\x24[\x29\x2D]/\e\$(/ or $esc =~ /\x1B\x2D/) { } |
|
405
|
8 |
6 |
if (not defined $coding or $coding =~ /^cns/ and not eval {
do {
require Encode::HanExtra;
1
}
}) |
|
409
|
8 |
0 |
if ($chk) { } |