| line |
true |
false |
branch |
|
103
|
7 |
9 |
unless (@$handlers) |
|
106
|
2 |
1 |
if ($self->can('EVENT_DISPATCH_ON_FALLBACK') and $self->EVENT_DISPATCH_ON_FALLBACK and my $code = $self->can("on_$event_name")) |
|
111
|
0 |
2 |
unless (eval {
do {
&$code($self, @_);
1
}
}) |
|
112
|
0 |
0 |
if $event_name eq 'event_error' |
|
113
|
0 |
0 |
unless $self->invoke_event('event_error', $@) |
|
191
|
0 |
6 |
unless $self->event_handlers |
|
196
|
0 |
6 |
unless defined $ev |
|
198
|
0 |
6 |
if ref $code and &Scalar::Util::reftype($code) ne 'CODE' |
|
231
|
0 |
6 |
unless $self->event_handlers |
|
236
|
0 |
6 |
unless defined $ev |
|
239
|
0 |
6 |
unless &List::UtilsBy::extract_by(sub {
&Scalar::Util::refaddr($code) == &Scalar::Util::refaddr($_);
}
, \@{$self->event_handlers->{$ev};}) |
|
260
|
0 |
2 |
unless $self->event_handlers |
|
270
|
1 |
1 |
if &$code($ev->instance, @_) |