| line |
true |
false |
branch |
|
100
|
1 |
10 |
if ($defaultargs{'arg_list'}) { } |
|
107
|
1 |
0 |
unless $args{'args'}{$key} or $defaultargs{'strict_args'} |
|
109
|
3 |
3 |
if $defaultargs{'strict_args'} |
|
112
|
15 |
24 |
if grep /^$key$/, ("strict_args", "args", "returns_objects") |
|
113
|
24 |
0 |
if $defaultargs{$key} |
|
116
|
1 |
10 |
if ($defaultargs{'returns_objects'}) |
|
121
|
5 |
6 |
if ($defaultargs{'merge_back'}) |
|
125
|
1 |
5 |
unless wantarray |
|
141
|
4 |
1 |
if $dest->can("has") |
|
|
4 |
1 |
if (eval {
do {
$dest->can('extends') if $dest->can('has')
}
}) { } |
|
145
|
7 |
0 |
if $dest->can($att) |
|
166
|
0 |
1 |
if $it > $maxlen |