| line |
true |
false |
branch |
|
25
|
1281 |
2230 |
unless (exists $Alias{$find}) |
|
31
|
991 |
44197 |
if (ref $alias eq 'Regexp' and $find =~ /$alias/i) { } |
|
|
11 |
44186 |
elsif (ref $alias eq 'CODE') { } |
|
|
31 |
44155 |
elsif (lc $find eq lc $alias) { } |
|
43
|
1033 |
44155 |
if (defined $new) |
|
44
|
145 |
888 |
if $new eq $find |
|
46
|
0 |
888 |
ref $new ? : |
|
48
|
842 |
46 |
if ($enc) |
|
57
|
439 |
842 |
unless ($Alias{$find}) |
|
61
|
95883 |
65 |
unless $lcfind eq lc $name |
|
84
|
2659 |
0 |
if defined $alias |
|
86
|
2015 |
644 |
if (ref $alias) { } |
|
|
644 |
0 |
elsif (defined $alias) { } |
|
91
|
32 |
2214 |
if (ref $alias eq 'Regexp' and $k =~ /$alias/i) { } |
|
|
359 |
3710 |
elsif (ref $alias eq 'CODE' and &$alias($k)) { } |
|
225
|
41 |
0 |
unless ($Encode::ON_EBCDIC) |