| line |
true |
false |
branch |
|
34
|
0 |
604 |
unless defined $str |
|
39
|
393 |
211 |
if (is_flagged_utf8($str)) |
|
40
|
0 |
393 |
if $Debug |
|
43
|
193 |
18 |
if (is_ascii($str)) |
|
45
|
0 |
193 |
if $Debug |
|
48
|
6 |
12 |
if (is_valid_utf8($str)) |
|
54
|
0 |
6 |
if $Debug |
|
59
|
0 |
12 |
if $Debug |
|
61
|
0 |
12 |
if $Debug |
|
63
|
0 |
12 |
unless (is_sane_utf8($c, 1)) |
|
101
|
0 |
0 |
if ($warnings) |
|
104
|
0 |
0 |
if (&Encode::is_utf8($string)) { } |
|
118
|
0 |
15 |
$is_insane ? : |
|
122
|
8 |
7 |
if (is_latin1($_[0]) and not is_ascii($_[0]) and not is_perl_utf8_string($_[0])) |
|
133
|
2 |
0 |
if ($bad) |
|
145
|
5 |
1 |
if (not is_latin1($_[0]) || is_ascii($_[0]) and $_[0] =~ /[\x80-\x9f]/) |
|
195
|
0 |
1 |
unless (is_valid_utf8($buf)) |
|
199
|
0 |
1 |
if $Debug |