| line |
true |
false |
branch |
|
74
|
34 |
60 |
if (@_ % 2) |
|
81
|
4 |
89 |
unless defined $name and not ref $name and $name =~ /$ID_REX/i |
|
84
|
1 |
88 |
if defined $self->{'resource'}{$name} |
|
85
|
2 |
86 |
if $target->can($name) |
|
89
|
1 |
85 |
if @extra |
|
94
|
80 |
5 |
unless (ref $spec{'require'}) |
|
95
|
1 |
79 |
defined $spec{'require'} ? : |
|
98
|
1 |
84 |
unless ref $spec{'require'} eq "ARRAY" |
|
101
|
1 |
83 |
if @bad |
|
105
|
3 |
80 |
if (defined(my $value = $spec{'literal'})) |
|
115
|
8 |
73 |
if defined $spec{'class'} |
|
117
|
13 |
62 |
if (my $deps = delete $spec{'dependencies'}) |
|
118
|
1 |
12 |
unless ref $deps eq "ARRAY" |
|
122
|
2 |
10 |
if @bad |
|
127
|
67 |
5 |
unless ($spec{'loose_deps'}) |
|
130
|
9 |
58 |
if defined $spec{'argument'} |
|
132
|
7 |
60 |
if ($spec{'allowdeps'}) { } |
|
135
|
1 |
6 |
if @fwd |
|
145
|
3 |
68 |
unless ref $spec{'init'} and &reftype($spec{'init'}) eq $CODE |
|
147
|
59 |
9 |
if (not defined $spec{'argument'}) { } |
|
|
6 |
3 |
elsif (ref $spec{'argument'} eq $REGEXP) { } |
|
|
2 |
1 |
elsif ((&reftype($spec{'argument'}) // '') eq $CODE) { } |
|
160
|
1 |
66 |
unless &looks_like_number($spec{'cleanup_order'}) |
|
166
|
1 |
1 |
if $spec{'ignore_cache'} and defined $spec{'cleanup'} || defined $spec{'fork_cleanup'} || $spec{'cleanup_order'} != 0 |
|
170
|
2 |
62 |
if defined $spec{'cleanup'} and (&reftype($spec{'cleanup'}) // "") ne $CODE |
|
172
|
2 |
60 |
if defined $spec{'fork_cleanup'} and (&reftype($spec{'fork_cleanup'}) // "") ne $CODE |
|
174
|
1 |
59 |
if ($spec{'preload'}) |
|
197
|
1 |
7 |
unless $class =~ /$MOD_REX/ |
|
202
|
1 |
5 |
unless ref $spec->{'dependencies'} eq "HASH" |
|
216
|
1 |
6 |
if (ref $entry eq "SCALAR") |
|
222
|
1 |
5 |
if (defined $entry and not ref $entry) |
|
224
|
1 |
0 |
if $entry eq 1 |
|
227
|
2 |
3 |
unless ref $entry eq "ARRAY" and @$entry <= 2 and ($entry->[0] // "") =~ /$ID_REX/ |
|
235
|
1 |
2 |
length($entry->[1] // '') ? : |
|
240
|
1 |
1 |
if %pass_args |
|
252
|
1 |
1 |
%pass_args ? : |
|
273
|
3 |
1 |
wantarray ? : |
|
301
|
0 |
10 |
unless $entry->{'allowdeps'} |
|
303
|
2 |
8 |
if @missing_deps |
|
307
|
1 |
1 |
unless eval {
do {
&load($mod);
1
}
} |