| line |
true |
false |
branch |
|
33
|
0 |
1 |
if exists $CONVERT{$src}{$dst}{$mod}{$chr} |
|
35
|
0 |
1 |
unless defined %Unicode::String:: |
|
39
|
0 |
0 |
if $_ =~ /^(?:utf16|utf8|utf7|ucs4|uchr|uhex|latin1)$/ or s/^(?:ucs2|unicode)$/utf16/o or s/^iso-8859-1$/latin1/o |
|
40
|
0 |
0 |
if exists $MAPPING{$_} |
|
41
|
0 |
0 |
unless ($REGISTR) |
|
44
|
0 |
0 |
if $_ eq 'iso-8859-1' |
|
47
|
0 |
1 |
if exists $CONVERT{$SRC}{$DST}{$mod}{$chr} |
|
54
|
2 |
0 |
unless $$_[2] and not $MAPPING{$$_[0]} |
|
60
|
0 |
1 |
if $map == 1 and $DST eq 'latin1' or $map == 2 and $SRC eq 'latin1' or $map == 0 and $SRC eq 'latin1' and $DST eq 'latin1' |
|
66
|
0 |
1 |
if $map != 3 and $mod |
|
67
|
0 |
1 |
if $map != 3 and length $chr |
|
68
|
0 |
0 |
if $SRC eq $DST and $map != 3 || !($mod & 16) |
|
71
|
1 |
0 |
if ($map != 3) { } |
|
74
|
1 |
0 |
if $uni & 1 and $SRC ne 'utf16' |
|
75
|
1 |
0 |
if $uni & 2 and $DST ne 'utf16' |
|
79
|
0 |
1 |
if $map & 1 |
|
80
|
1 |
0 |
if $uni & 1 and not $map & 2 && !($utf & 1) |
|
82
|
0 |
1 |
if $map & 2 |
|
83
|
0 |
1 |
if $utf & 2 and $map & 1 |
|
84
|
1 |
0 |
if $uni & 2 and $uni & 1 or $utf & 2 and $map & 1 |
|
89
|
0 |
1 |
if $TEST |
|
109
|
0 |
0 |
$#_ ? : |
|
|
0 |
0 |
unless my(@chr) = map({my(@a) = map(hex($_), split(/\+/, $_, 0));
$#a ? \@a : $a[0];} $#_ ? @_ : split(/\s+/, shift(), 0)) |
|
110
|
0 |
0 |
$#a ? : |
|
117
|
0 |
0 |
ref $_ || !exists($EQUIVAL{$_}) ? : |
|
126
|
0 |
0 |
if $mod & 18446744073709551584 |
|
127
|
0 |
0 |
if length $chr and $mod & 2 |
|
129
|
0 |
0 |
length $chr ? : |
|
|
0 |
0 |
if $mod & 1 and not $mod & 2 |
|
133
|
0 |
0 |
if $mod & 16 |
|
134
|
0 |
0 |
$mod & 16 ? : |
|
136
|
0 |
0 |
$_ ? : |
|
139
|
0 |
0 |
if $mod & 18446744073709551614 |
|
143
|
0 |
0 |
if ($mod & 18446744073709551614) |
|
145
|
0 |
0 |
unless $dst[$_] and exists $src{$dst[$_]} |
|
152
|
0 |
0 |
if ($mod & 4 and not %EQUIVAL) |
|
159
|
0 |
0 |
unless exists $EQUIVAL{$chr} |
|
162
|
0 |
0 |
unless $_ < 128 or exists $dst{$_} |
|
|
0 |
0 |
unless (ref $_) |
|
163
|
0 |
0 |
unless $mod & 8 |
|
164
|
0 |
0 |
unless $_ < 128 or exists $dst{$_} |
|
173
|
0 |
0 |
if not $src[$_] or $src[$_] == $dst[$_] |
|
176
|
0 |
0 |
if (exists $dst{$src[$_]}) { } |
|
|
0 |
0 |
elsif ($mod & 4 and my $uni = &$find) { } |
|
|
0 |
0 |
elsif ($mod & 2) { } |
|
|
0 |
0 |
elsif ($mod & 1) { } |
|
180
|
0 |
0 |
if ref $uni and push @eqv, [$_, $uni] |
|
182
|
0 |
0 |
if not $dst{$uni} && $_ == $dst{$uni} - 128 and push @map, [$_, $uni] |
|
198
|
0 |
0 |
if @ent + @eqv > @dif |
|
204
|
0 |
0 |
$$_[1] < 128 ? : |
|
213
|
0 |
0 |
$_ < 128 ? : |
|
219
|
0 |
0 |
@del ? : |
|
|
0 |
0 |
if @chr |
|
225
|
0 |
0 |
@del ? : |