| line |
true |
false |
branch |
|
74
|
0 |
2 |
defined $params{'register_prefix'} ? : |
|
75
|
1 |
1 |
if defined $reg_prefix |
|
79
|
0 |
2 |
defined $params{'event_prefix'} ? : |
|
80
|
0 |
2 |
if defined $ev_prefix |
|
83
|
2 |
0 |
if (defined $params{'types'}) |
|
89
|
1 |
1 |
ref $params{'types'} eq 'HASH' ? : |
|
|
0 |
2 |
ref $params{'types'} eq 'ARRAY' ? : |
|
114
|
1 |
23 |
unless ref $args |
|
118
|
16 |
7 |
if index($event, $prefix) == 0 |
|
124
|
17 |
6 |
if ($self->can($meth)) { } |
|
|
2 |
4 |
elsif ($self->can('_default')) { } |
|
134
|
5 |
18 |
if (not defined $self_ret) { } |
|
|
0 |
18 |
elsif ($self_ret == 3) { } |
|
|
0 |
18 |
elsif ($self_ret == 2) { } |
|
|
15 |
3 |
elsif ($self_ret == 4) { } |
|
147
|
0 |
8 |
if @extra |
|
155
|
6 |
2 |
unless exists $handle_ref->{$_}{$type}{$event} |
|
161
|
5 |
1 |
if ($thisplug->can($meth)) { } |
|
|
1 |
0 |
elsif ($thisplug->can('_default')) { } |
|
173
|
0 |
6 |
if (not defined $plug_ret) { } |
|
|
1 |
5 |
elsif ($plug_ret == 3) { } |
|
|
0 |
5 |
elsif ($plug_ret == 2) { } |
|
|
0 |
5 |
elsif ($plug_ret == 4) { } |
|
189
|
0 |
5 |
if (@extra) |
|
201
|
1 |
24 |
if ($@) { } |
|
|
0 |
24 |
elsif (not defined $_[3] or $_[3] != 1 and $_[3] != 4 and $_[3] != 2 and $_[3] != 3) { } |
|
205
|
0 |
1 |
defined $src ? : |
|
224
|
0 |
0 |
defined $src ? : |
|
246
|
0 |
4 |
unless defined $alias and &blessed($plugin) |
|
261
|
0 |
5 |
unless defined $alias_or_plug |
|
272
|
0 |
2 |
unless (defined $item_plug) |
|
277
|
1 |
1 |
wantarray ? : |
|
295
|
0 |
3 |
unless defined $params{$_} |
|
301
|
0 |
1 |
unless (defined $old_plug) |
|
308
|
0 |
1 |
ref $params{'unregister_args'} eq 'ARRAY' ? : |
|
317
|
0 |
1 |
ref $params{'register_args'} eq 'ARRAY' ? : |
|
|
0 |
1 |
unless $self->__plug_pipe_register($new_alias, $new_plug, ref $params{'register_args'} eq 'ARRAY' ? @{$params{'register_args'};} : ()) |
|
322
|
1 |
0 |
if ($thisplug == $old_plug) |
|
338
|
0 |
5 |
unless exists $self->__pluggable_opts->{'types'}{$type} |
|
340
|
0 |
5 |
unless @events |
|
343
|
0 |
5 |
unless &blessed($plugin) |
|
350
|
0 |
6 |
if (ref $ev eq 'ARRAY') |
|
364
|
0 |
0 |
unless exists $self->__pluggable_opts->{'types'}{$type} |
|
366
|
0 |
0 |
unless &blessed($plugin) and defined $type |
|
369
|
0 |
0 |
unless @events |
|
376
|
0 |
0 |
if (ref $ev eq 'ARRAY') { } |
|
378
|
0 |
0 |
unless (delete $handles->{$this_ev}) |
|
383
|
0 |
0 |
unless (delete $handles->{$ev}) |
|
399
|
0 |
4 |
if (my $existing = $self->__plugin_by_alias($alias)) |
|
405
|
0 |
4 |
unless $self->__plug_pipe_register($alias, $plug, @args) |
|
415
|
0 |
0 |
unless @{$self->__pluggable_pipeline;} |
|
422
|
0 |
0 |
wantarray ? : |
|
428
|
0 |
1 |
if (my $existing = $self->__plugin_by_alias($alias)) |
|
434
|
0 |
1 |
unless $self->__plug_pipe_register($alias, $plug, @args) |
|
444
|
0 |
1 |
unless @{$self->__pluggable_pipeline;} |
|
451
|
0 |
1 |
wantarray ? : |
|
459
|
0 |
5 |
unless (defined $old_plug) |
|
467
|
5 |
0 |
if ($thisplug == $old_plug) |
|
476
|
0 |
5 |
wantarray ? : |
|
484
|
0 |
9 |
unless (defined $item_plug) |
|
492
|
9 |
4 |
if $thisplug == $item_plug |
|
511
|
0 |
3 |
unless defined $params{$_} |
|
517
|
0 |
1 |
unless (defined $prev_plug) |
|
523
|
0 |
1 |
if (my $existing = $self->__plugin_by_alias($params{'alias'})) |
|
533
|
0 |
1 |
ref $params{'register_args'} eq 'ARRAY' ? : |
|
|
0 |
1 |
unless $self->__plug_pipe_register($params{'alias'}, $params{'plugin'}, ref $params{'register_args'} eq 'ARRAY' ? @{$params{'register_args'};} : ()) |
|
539
|
1 |
1 |
if ($thisplug == $prev_plug) |
|
555
|
0 |
3 |
unless defined $params{$_} |
|
561
|
0 |
1 |
unless (defined $next_plug) |
|
567
|
0 |
1 |
if (my $existing = $self->__plugin_by_alias($params{'alias'})) |
|
577
|
0 |
1 |
ref $params{'register_args'} eq 'ARRAY' ? : |
|
|
0 |
1 |
unless $self->__plug_pipe_register($params{'alias'}, $params{'plugin'}, ref $params{'register_args'} eq 'ARRAY' ? @{$params{'register_args'};} : ()) |
|
583
|
1 |
0 |
if ($thisplug == $next_plug) |
|
597
|
0 |
1 |
unless $idx >= 0 |
|
601
|
0 |
1 |
unless ($pos >= 0) |
|
615
|
0 |
1 |
unless $idx >= 0 |
|
619
|
0 |
1 |
if ($pos >= @{$self->__pluggable_pipeline;}) |
|
645
|
0 |
8 |
unless ($retval) |
|
649
|
0 |
8 |
if ($err) |
|
679
|
0 |
7 |
unless ($retval) |
|
683
|
0 |
7 |
if ($err) |
|
730
|
1 |
18 |
&blessed($item) ? : |