| line |
true |
false |
branch |
|
22
|
4 |
17 |
if @_ <= 1 |
|
30
|
0 |
17 |
if (ref $args[0] eq 'HASH') { } |
|
|
0 |
17 |
elsif (ref $args[0] eq 'ARRAY') { } |
|
46
|
19 |
28 |
if ($prev) { } |
|
48
|
5 |
14 |
if (index($prev, '-') == 0) { } |
|
58
|
10 |
4 |
if (not ref $item) { } |
|
|
4 |
0 |
elsif (ref $item eq 'ARRAY') { } |
|
74
|
2 |
26 |
if ($item eq '-aliased') { } |
|
84
|
17 |
0 |
if $prev |
|
87
|
5 |
12 |
exists $param{'to'} ? : |
|
97
|
1 |
30 |
unless $module->require |
|
100
|
4 |
26 |
if (exists $args_for{$relname}) { } |
|
105
|
2 |
2 |
if (@$args) |
|
107
|
0 |
2 |
unless eval " package $caller; $module->import($args_str); 1 " |
|
113
|
0 |
26 |
unless eval " package $caller; $module->import; 1 " |
|
117
|
4 |
26 |
if ($param{'aliased'}) |
|
126
|
6 |
10 |
wantarray ? : |