| line |
true |
false |
branch |
|
11
|
1 |
0 |
if $_[0]->on('error', $_[1]) |
|
16
|
29 |
2 |
if (my $s = $self->{'_role_ee_events'}{$name}) { } |
|
21
|
1 |
1 |
if $name eq 'error' |
|
28
|
19 |
0 |
if push @{$_[0]{'_role_ee_events'}{$_[1]};}, $_[2] |
|
49
|
0 |
0 |
unless (defined $has_future) |
|
51
|
0 |
0 |
unless eval {
do {
require Future;
$has_future = 1
}
} |
|
53
|
0 |
0 |
unless $has_future |
|
69
|
14 |
1 |
if ($cb) { } |
|
72
|
9 |
5 |
unless @{$self->{'_role_ee_events'}{$name};} |
|
73
|
0 |
14 |
if ($self->{'_role_ee_futures'}{$name} and my $f = delete $self->{'_role_ee_futures'}{$name}{$addr}) |
|
75
|
0 |
0 |
unless keys %{$$self{'_role_ee_futures'}{$name};} |
|
79
|
1 |
0 |
unless delete $self->{'_role_ee_futures'}{$name} |