| line |
true |
false |
branch |
|
12
|
2 |
21 |
if @_ == 1 |
|
18
|
2 |
19 |
if $_ eq 'import' or $_ eq '_pre_581_is_utf8_hack' |
|
19
|
18 |
1 |
if defined &{$_;} |
|
46
|
8 |
76 |
if $allow_specials{$name} |
|
47
|
8 |
68 |
if $uni_str =~ /$specials{$name}/ |
|
50
|
2 |
14 |
if $uni_str =~ /$invisible/ |
|
51
|
2 |
12 |
if $uni_str =~ /$disallowed_whitespace/ |
|
52
|
2 |
10 |
if $uni_str =~ /$control/ |
|
73
|
71 |
64 |
unless (is_unicode($string)) |
|
74
|
71 |
0 |
if (defined &utf8::decode) { } |
|
82
|
33 |
38 |
unless (is_unicode($string)) |
|
85
|
33 |
0 |
if (defined &utf8::upgrade) { } |
|
95
|
0 |
135 |
if ref $pre_573_is_utf8_hack |
|
101
|
63 |
230 |
if (is_unicode($string)) |
|
102
|
63 |
0 |
if (defined &utf8::encode) { } |
|
110
|
0 |
293 |
if ref $pre_573_is_utf8_hack |
|
123
|
0 |
30 |
if ($is_uni and $] < 5.008001 and Module::Want::have_mod('Data::Dumper')) |
|
129
|
0 |
0 |
unless $quote eq q['] |
|
141
|
83 |
149 |
if ($n < 32 or $n > 126) { } |
|
|
84 |
65 |
elsif ($quotemeta) { } |
|
142
|
51 |
32 |
!$is_uni && $n < 255 ? : |
|
169
|
27 |
112 |
$string =~ /\\x\{[0-9a-fA-f]+\}/ ? : |
|
172
|
126 |
13 |
if $unquotemeta |
|
173
|
27 |
112 |
if $is_uni |
|
227
|
2 |
5 |
if bytes::length($string) != length $string |
|
230
|
5 |
0 |
if (Module::Want::have_mod('Encode')) { } |
|
231
|
1 |
4 |
if Encode::is_utf8($string) |
|
236
|
0 |
0 |
if (Module::Want::have_mod('B::Flags') and defined &B::svref_2object) { } |
|
237
|
0 |
0 |
if B::svref_2object(\$string)->flagspv =~ /UTF.?8/i |
|
244
|
0 |
0 |
if exists $pre_573_is_utf8_hack->{$string} |