line |
true |
false |
branch |
95
|
0 |
0 |
defined $args ? : |
|
0 |
0 |
defined $context ? : |
|
0 |
210 |
if $self->{'DEBUG'} |
109
|
3 |
45 |
if $error |
115
|
2 |
205 |
if (ref $factory eq 'CODE') { } |
116
|
0 |
2 |
unless defined($plugin = &$factory(@$args)) |
120
|
0 |
202 |
unless defined($plugin = $factory->new(@$args)) |
124
|
3 |
204 |
if ($error = $@) |
127
|
0 |
3 |
$self->{'TOLERANT'} ? : |
154
|
155 |
4 |
unless defined $pbase |
155
|
3 |
156 |
unless ref $pbase eq 'ARRAY' |
158
|
156 |
3 |
if $PLUGIN_BASE |
185
|
36 |
12 |
if ($module = $self->{'PLUGINS'}{$name} || $self->{'PLUGINS'}{lc $name}) { } |
191
|
0 |
36 |
if $self->{'DEBUG'} |
204
|
0 |
13 |
if $self->{'DEBUG'} |
207
|
8 |
5 |
unless $@ |
209
|
0 |
5 |
unless $@ =~ /^Can\'t locate $file\.pm/ |
214
|
44 |
4 |
if ($ok) { } |
|
1 |
3 |
elsif ($self->{'LOAD_PERL'}) { } |
215
|
0 |
44 |
if $self->{'DEBUG'} |
219
|
0 |
44 |
if ($@ or not $factory) |
227
|
0 |
1 |
if ($@) { } |
243
|
45 |
3 |
if ($factory) { } |
|
0 |
3 |
elsif ($error) { } |
244
|
0 |
45 |
if $self->{'DEBUG'} |
249
|
0 |
0 |
$self->{'TOLERANT'} ? : |