| line |
true |
false |
branch |
|
19
|
1 |
1 |
if ($pkg_override ne 'Plugins' and scalar caller() ne $pkg_override and can($pkg_override, 'new') and can($pkg_override, 'new') ne \&new) |
|
25
|
0 |
1 |
unless $new |
|
58
|
0 |
2 |
if $$self{'new_list'} |
|
72
|
1 |
7 |
unless ($required{$pkg}++) |
|
76
|
0 |
1 |
if $@ |
|
78
|
8 |
0 |
unless $method |
|
80
|
0 |
0 |
unless $f |
|
94
|
0 |
0 |
unless (-f $file) |
|
97
|
0 |
0 |
unless -f "$dir/$file" |
|
103
|
0 |
0 |
unless -f $file |
|
145
|
0 |
0 |
if $@ |
|
163
|
0 |
4 |
unless %{"${pkg}::";} |
|
166
|
4 |
0 |
unless $context{'requestor'} |
|
167
|
0 |
4 |
if $$self{'new_config'}{$key} |
|
178
|
0 |
2 |
unless defined $$self{'new_list'} |
|
180
|
0 |
2 |
if ($$self{'list'}) |
|
182
|
0 |
0 |
if $args{'shutdown_args'} |
|
205
|
1 |
0 |
if @_ > 1 |
|
213
|
4 |
0 |
unless $$context{'pkg_override'} |
|
215
|
0 |
4 |
unless my $new = can($pkg, 'new') |
|
217
|
0 |
4 |
unless my $p = &$new($pkg, {'context', $context, 'api', $$self{'api'}}, @{$$context{'new_args'};}) |
|
230
|
0 |
0 |
unless %{"${pkg}::";} |
|
233
|
0 |
0 |
if ($$self{'plugins'}{$key}) { } |
|
238
|
0 |
0 |
unless $context{'requestor'} |
|
246
|
0 |
3 |
unless defined $$self{'list'} |
|
247
|
0 |
3 |
if $method =~ /::/ |
|
257
|
0 |
0 |
unless defined $$self{'list'} |
|
262
|
0 |
0 |
if $debug |
|
263
|
0 |
0 |
unless $m |
|
264
|
0 |
0 |
if (wantarray) { } |
|
269
|
0 |
0 |
if $debug |
|
270
|
0 |
0 |
if $@ |
|
271
|
0 |
0 |
if (&$satisfied(@r)) |
|
272
|
0 |
0 |
if $debug |
|
273
|
0 |
0 |
if wantarray |
|
276
|
0 |
0 |
if $debug |
|
278
|
0 |
0 |
if wantarray |
|
286
|
0 |
1 |
unless defined $$self{'list'} |
|
293
|
0 |
0 |
unless defined $$self{'list'} |
|
297
|
0 |
0 |
unless @plugins |
|
300
|
0 |
0 |
unless $f |
|
321
|
0 |
22 |
if ($Plugins::debug) |
|
325
|
0 |
22 |
if $method =~ /::/ |
|
327
|
0 |
22 |
unless $m |
|
344
|
0 |
0 |
unless $auto =~ s/^$ref::// |
|
345
|
0 |
0 |
if $$self{'myapi'} |
|
347
|
0 |
0 |
if $$self{'api'} |