| line |
true |
false |
branch |
|
106
|
3 |
5 |
unless (@$handlers)
|
|
109
|
2 |
1 |
if ($self->EVENT_DISPATCH_ON_FALLBACK and my $code = $self->can("on_$event_name"))
|
|
114
|
0 |
2 |
unless (eval {
do {
&$code($self, @_);
1
}
})
|
|
115
|
0 |
0 |
if $event_name eq 'event_error'
|
|
116
|
0 |
0 |
unless $self->invoke_event('event_error', $@)
|
|
194
|
0 |
2 |
unless $self->event_handlers
|
|
199
|
0 |
2 |
unless defined $ev
|
|
201
|
0 |
2 |
if ref $code and &Scalar::Util::reftype($code) ne 'CODE'
|
|
234
|
0 |
2 |
unless $self->event_handlers
|
|
239
|
0 |
2 |
unless defined $ev
|
|
242
|
0 |
2 |
unless &List::UtilsBy::extract_by(sub {
&Scalar::Util::refaddr($code) == &Scalar::Util::refaddr($_);
}
, \@{$self->event_handlers->{$ev};})
|
|
263
|
0 |
2 |
unless $self->event_handlers
|
|
273
|
1 |
1 |
if &$code($ev->instance, @_)
|