line |
true |
false |
branch |
23
|
1274 |
2225 |
unless (exists $Alias{$find}) |
29
|
981 |
43769 |
if (ref $alias eq 'Regexp' and $find =~ /$alias/i) { } |
|
11 |
43758 |
elsif (ref $alias eq 'CODE') { } |
|
30 |
43728 |
elsif (lc $find eq lc $alias) { } |
41
|
1022 |
43728 |
if (defined $new) |
42
|
136 |
886 |
if $new eq $find |
44
|
0 |
886 |
ref $new ? : |
46
|
840 |
46 |
if ($enc) |
55
|
434 |
840 |
unless ($Alias{$find}) |
59
|
95135 |
60 |
unless $lcfind eq lc $name |
82
|
2354 |
0 |
if defined $alias |
84
|
1770 |
584 |
if (ref $alias) { } |
|
584 |
0 |
elsif (defined $alias) { } |
89
|
32 |
2214 |
if (ref $alias eq 'Regexp' and $k =~ /$alias/i) { } |
|
359 |
3710 |
elsif (ref $alias eq 'CODE' and &$alias($k)) { } |
226
|
36 |
0 |
unless ($Encode::ON_EBCDIC) |