| line |
true |
false |
branch |
|
39
|
44 |
22 |
if (/^#/ or /^$/) { } |
|
|
20 |
2 |
elsif (/^[^\s]/) { } |
|
|
0 |
2 |
elsif (/^\s+$/) { } |
|
|
2 |
0 |
elsif (/^\s+/ and $alias) { } |
|
51
|
20 |
0 |
if ($] >= 5.005) { } |
|
71
|
2 |
0 |
if ($] >= 5.005) { } |
|
92
|
28 |
42 |
unless (@_) |
|
93
|
2 |
26 |
unless defined $$this{'alias'}{$name} |
|
94
|
6 |
20 |
unless wantarray |
|
99
|
21 |
21 |
unless defined $$this{'alias'}{$name} |
|
102
|
42 |
0 |
unless wantarray |
|
111
|
0 |
1 |
unless defined $$this{'alias'}{$name} |
|
124
|
0 |
0 |
unless ($this->alias($name)) |
|
137
|
0 |
45 |
$name eq '*' ? : |
|
140
|
0 |
45 |
unless defined $$this{'alias'}{$_} |
|
153
|
1 |
21 |
$name eq '*' ? : |
|
156
|
0 |
42 |
unless defined $$this{'alias'}{$_} |
|
171
|
1 |
19 |
if (exists $$this{'alias'}{$_}{$oldname}) |
|
184
|
2 |
1 |
wantarray ? : |
|
210
|
44 |
20 |
unless ($seq =~ /^_ALIAS_ ([^\s]+)$/) |
|
211
|
0 |
44 |
unless print $fh $seq |
|
216
|
0 |
20 |
unless defined @users |
|
217
|
0 |
20 |
unless print $fh $this->joinwrap(80, "${name}: ", "\t", ',', ',', @users), "\n" |