| line |
true |
false |
branch |
|
93
|
38 |
112 |
if (@_ % 2) |
|
100
|
4 |
145 |
unless defined $name and not ref $name and $name =~ /$ID_REX/i |
|
103
|
1 |
144 |
if defined $self->{'resource'}{$name} |
|
104
|
2 |
142 |
if $target->can($name) |
|
108
|
1 |
141 |
if @extra |
|
112
|
0 |
141 |
if exists $spec{'ignore_cache'} |
|
115
|
0 |
141 |
if delete $spec{'loose_deps'} |
|
119
|
136 |
5 |
unless (ref $spec{'require'}) |
|
120
|
3 |
133 |
defined $spec{'require'} ? : |
|
123
|
1 |
140 |
unless ref $spec{'require'} eq "ARRAY" |
|
126
|
1 |
139 |
if @bad |
|
130
|
4 |
135 |
if (defined(my $value = $spec{'literal'})) |
|
141
|
8 |
129 |
if defined $spec{'class'} |
|
143
|
20 |
111 |
if (my $deps = delete $spec{'dependencies'}) |
|
144
|
1 |
19 |
unless ref $deps eq "ARRAY" |
|
148
|
2 |
17 |
if @bad |
|
154
|
3 |
125 |
unless ref $spec{'init'} and builtin::reftype($spec{'init'}) eq $CODE |
|
156
|
113 |
12 |
if (not defined $spec{'argument'}) { } |
|
|
9 |
3 |
elsif (ref $spec{'argument'} eq $REGEXP) { } |
|
|
2 |
1 |
elsif ((builtin::reftype($spec{'argument'}) // '') eq $CODE) { } |
|
171
|
1 |
123 |
unless &looks_like_number($spec{'cleanup_order'}) |
|
174
|
2 |
121 |
if defined $spec{'check'} and (builtin::reftype($spec{'check'}) // "") ne $CODE |
|
176
|
2 |
119 |
if defined $spec{'cleanup'} and (builtin::reftype($spec{'cleanup'}) // "") ne $CODE |
|
178
|
2 |
117 |
if defined $spec{'fork_cleanup'} and (builtin::reftype($spec{'fork_cleanup'}) // "") ne $CODE |
|
180
|
1 |
14 |
if $spec{'fork_cleanup'} and $spec{'fork_safe'} |
|
184
|
2 |
114 |
if ($spec{'preload'}) |
|
191
|
10 |
6 |
unless not $self->{'resource'}{$_} |
|
192
|
99 |
17 |
unless $spec{'allowdeps'} |
|
193
|
7 |
109 |
if (@forward_deps) |
|
195
|
1 |
6 |
if ($loop) |
|
210
|
6 |
109 |
if (@forward_deps) { } |
|
227
|
1 |
7 |
unless $class =~ /$MOD_REX/ |
|
232
|
1 |
5 |
unless ref $spec->{'dependencies'} eq "HASH" |
|
246
|
1 |
6 |
if (ref $entry eq "SCALAR") |
|
252
|
1 |
5 |
if (defined $entry and not ref $entry) |
|
254
|
1 |
0 |
if $entry eq 1 |
|
257
|
2 |
3 |
unless ref $entry eq "ARRAY" and @$entry <= 2 and ($entry->[0] // "") =~ /$ID_REX/ |
|
265
|
1 |
2 |
length($entry->[1] // '') ? : |
|
270
|
1 |
1 |
if %pass_args |
|
282
|
1 |
1 |
%pass_args ? : |
|
305
|
5 |
1 |
wantarray ? : |
|
321
|
1 |
5 |
unless $spec |
|
326
|
2 |
3 |
if (my $deps = delete $show{'allowdeps'}) |
|
330
|
5 |
0 |
if (exists $show{'orig_argument'}) |
|
361
|
1 |
1 |
unless eval {
do {
&load($mod);
1
}
} |
|
378
|
3 |
67 |
if (@unsatisfied) |
|
406
|
1 |
7 |
unless $res and $res->{'origin'} |