line |
true |
false |
branch |
99
|
1 |
10 |
if ($defaultargs{'arg_list'}) { }
|
106
|
1 |
0 |
unless $args{'args'}{$key} or $defaultargs{'strict_args'}
|
108
|
3 |
3 |
if $defaultargs{'strict_args'}
|
111
|
15 |
24 |
if grep /^$key$/, ('strict_args', 'args', 'returns_objects')
|
112
|
24 |
0 |
if $defaultargs{$key}
|
115
|
1 |
10 |
if ($defaultargs{'returns_objects'})
|
120
|
5 |
6 |
if ($defaultargs{'merge_back'})
|
124
|
1 |
5 |
unless wantarray
|
139
|
4 |
1 |
if $dest->can('has')
|
|
4 |
1 |
if (eval {
do {
$dest->can('extends') if $dest->can('has')
}
}) { }
|
143
|
7 |
0 |
if $dest->can($att)
|
164
|
0 |
1 |
if $it > $maxlen
|