| line |
true |
false |
branch |
|
23
|
1283 |
2230 |
unless (exists $Alias{$find}) |
|
29
|
994 |
44258 |
if (ref $alias eq 'Regexp' and $find =~ /$alias/i) { } |
|
|
11 |
44247 |
elsif (ref $alias eq 'CODE') { } |
|
|
31 |
44216 |
elsif (lc $find eq lc $alias) { } |
|
41
|
1036 |
44216 |
if (defined $new) |
|
42
|
146 |
890 |
if $new eq $find |
|
44
|
0 |
890 |
ref $new ? : |
|
46
|
844 |
46 |
if ($enc) |
|
55
|
439 |
844 |
unless ($Alias{$find}) |
|
59
|
95889 |
65 |
unless $lcfind eq lc $name |
|
82
|
2716 |
0 |
if defined $alias |
|
84
|
2064 |
652 |
if (ref $alias) { } |
|
|
652 |
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
|
42 |
0 |
unless ($Encode::ON_EBCDIC) |