| line |
true |
false |
branch |
|
73
|
0 |
2 |
defined $params{'register_prefix'} ? : |
|
75
|
1 |
1 |
if defined $reg_prefix |
|
78
|
0 |
2 |
defined $params{'event_prefix'} ? : |
|
80
|
0 |
2 |
if defined $ev_prefix |
|
83
|
2 |
0 |
if (defined $params{'types'}) |
|
86
|
1 |
1 |
ref $params{'types'} eq 'HASH' ? : |
|
|
0 |
2 |
ref $params{'types'} eq 'ARRAY' ? : |
|
114
|
1 |
23 |
unless (ref $args) |
|
119
|
16 |
7 |
if index($event, $prefix) == 0 |
|
126
|
17 |
6 |
if ($self->can($meth)) { } |
|
|
2 |
4 |
elsif ($self->can('_default')) { } |
|
140
|
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) { } |
|
153
|
0 |
8 |
if (@extra) |
|
161
|
6 |
2 |
unless exists $$handle_ref{$_}{$type}{$event} |
|
169
|
5 |
1 |
if ($thisplug->can($meth)) { } |
|
|
1 |
0 |
elsif ($thisplug->can('_default')) { } |
|
181
|
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) { } |
|
197
|
0 |
5 |
if (@extra) |
|
209
|
1 |
24 |
if ($@) { } |
|
|
0 |
24 |
elsif (not defined $_[3] or $_[3] != 1 and $_[3] != 4 and $_[3] != 2 and $_[3] != 3) { } |
|
213
|
0 |
1 |
defined $src ? : |
|
232
|
0 |
0 |
defined $src ? : |
|
254
|
0 |
4 |
unless defined $alias and blessed $plugin |
|
269
|
0 |
5 |
unless defined $alias_or_plug |
|
280
|
0 |
2 |
unless (defined $item_plug) |
|
285
|
1 |
1 |
wantarray ? : |
|
302
|
0 |
3 |
unless defined $params{$_} |
|
309
|
0 |
1 |
unless (defined $old_plug) |
|
316
|
0 |
1 |
ref $params{'unregister_args'} eq 'ARRAY' ? : |
|
325
|
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'};} : ()) |
|
330
|
1 |
0 |
if ($thisplug == $old_plug) |
|
345
|
0 |
5 |
unless exists $self->__pluggable_opts->{'types'}{$type} |
|
348
|
0 |
5 |
unless @events |
|
351
|
0 |
5 |
unless blessed $plugin |
|
358
|
0 |
6 |
if (ref $ev eq 'ARRAY') |
|
371
|
0 |
0 |
unless exists $self->__pluggable_opts->{'types'}{$type} |
|
374
|
0 |
0 |
unless blessed $plugin and defined $type |
|
377
|
0 |
0 |
unless @events |
|
384
|
0 |
0 |
if (ref $ev eq 'ARRAY') { } |
|
386
|
0 |
0 |
unless (delete $$handles{$this_ev}) |
|
391
|
0 |
0 |
unless (delete $$handles{$ev}) |
|
407
|
0 |
4 |
if (my $existing = $self->__plugin_by_alias($alias)) |
|
413
|
0 |
4 |
unless $self->__plug_pipe_register($alias, $plug, @args) |
|
423
|
0 |
0 |
unless @{$self->__pluggable_pipeline;} |
|
430
|
0 |
0 |
wantarray ? : |
|
436
|
0 |
1 |
if (my $existing = $self->__plugin_by_alias($alias)) |
|
442
|
0 |
1 |
unless $self->__plug_pipe_register($alias, $plug, @args) |
|
452
|
0 |
1 |
unless @{$self->__pluggable_pipeline;} |
|
459
|
0 |
1 |
wantarray ? : |
|
467
|
0 |
5 |
unless (defined $old_plug) |
|
475
|
5 |
0 |
if ($thisplug == $old_plug) |
|
484
|
0 |
5 |
wantarray ? : |
|
492
|
0 |
9 |
unless (defined $item_plug) |
|
500
|
9 |
4 |
if $thisplug == $item_plug |
|
518
|
0 |
3 |
unless defined $params{$_} |
|
525
|
0 |
1 |
unless (defined $prev_plug) |
|
531
|
0 |
1 |
if (my $existing = $self->__plugin_by_alias($params{'alias'})) |
|
541
|
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'};} : ()) |
|
547
|
1 |
1 |
if ($thisplug == $prev_plug) |
|
562
|
0 |
3 |
unless defined $params{$_} |
|
569
|
0 |
1 |
unless (defined $next_plug) |
|
575
|
0 |
1 |
if (my $existing = $self->__plugin_by_alias($params{'alias'})) |
|
585
|
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'};} : ()) |
|
591
|
1 |
0 |
if ($thisplug == $next_plug) |
|
605
|
0 |
1 |
unless $idx >= 0 |
|
609
|
0 |
1 |
unless ($pos >= 0) |
|
623
|
0 |
1 |
unless $idx >= 0 |
|
627
|
0 |
1 |
if ($pos >= @{$self->__pluggable_pipeline;}) |
|
653
|
0 |
8 |
unless ($retval) |
|
657
|
0 |
8 |
if ($err) |
|
687
|
0 |
7 |
unless ($retval) |
|
691
|
0 |
7 |
if ($err) |
|
736
|
1 |
18 |
blessed $item ? : |