| 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) |