| line |
true |
false |
branch |
|
51
|
1 |
142 |
unless $known_opt{$_} |
|
54
|
2 |
33 |
unless defined $input |
|
55
|
4 |
29 |
unless $byte_map |
|
58
|
2 |
31 |
if (is_utf8 $input) |
|
59
|
1 |
1 |
if ($opt{'bytes_only'}) { } |
|
67
|
2 |
29 |
if ($xs_loaded and $opt{'use_xs'} ne 'never') |
|
68
|
0 |
2 |
$opt{'overlong_fatal'} ? : |
|
69
|
2 |
0 |
$opt{'ascii_hex'} ? : |
|
74
|
0 |
2 |
if (my $msg = $@) |
|
78
|
0 |
2 |
if ($opt{'bytes_only'}) { } |
|
97
|
18 |
39 |
if ($input =~ /$ascii_str/) { } |
|
|
8 |
31 |
elsif ($input =~ /$utf8_2/) { } |
|
|
6 |
25 |
elsif ($input =~ /$utf8_3/) { } |
|
|
2 |
23 |
elsif ($input =~ /$utf8_4/) { } |
|
|
1 |
22 |
elsif ($input =~ /$utf8_5/) { } |
|
119
|
6 |
16 |
if ($$opt{'ascii_hex'} and exists $non_1252{$char}) { } |
|
128
|
21 |
7 |
unless $$opt{'bytes_only'} |
|
141
|
1 |
16 |
if ($overlong_fatal and $byte_count > length $bytes) |
|
162
|
31 |
2 |
if ($use_xs eq 'never' or $xs_loaded) |
|
165
|
2 |
0 |
unless (defined $xs_loaded) |
|
167
|
2 |
0 |
eval {
do {
require 'Encoding/FixLatin/XS.pm'
}
} ? : |
|
169
|
0 |
2 |
if (not $xs_loaded and $use_xs eq 'always') |