| line |
true |
false |
branch |
|
103
|
0 |
2 |
unless (defined $PRIO_MAP{$alias}) |
|
147
|
24 |
4 |
unless *{"${pkg}::__OE_METHODS";}{'HASH'} |
|
245
|
0 |
0 |
if $e |
|
255
|
0 |
0 |
if $file =~ s[^\Q$path\E/?][]u |
|
269
|
19 |
87 |
if $$ev[0] < $prio |
|
274
|
0 |
56 |
if $DEBUG > 1 |
|
283
|
0 |
35 |
if ($DEBUG > 0) |
|
286
|
0 |
0 |
if $file =~ s[^\Q$path\E/?][]u |
|
299
|
42 |
14 |
if (ref $sec) { } |
|
301
|
16 |
129 |
if ($ev =~ s/^(\Q$prefix\E)_//u) |
|
319
|
8 |
0 |
if ($self) |
|
320
|
8 |
27 |
defined wantarray ? : |
|
332
|
4 |
23 |
if (ref $cb eq 'REF') |
|
338
|
0 |
23 |
unless defined $cb |
|
349
|
17 |
6 |
defined $gen ? : |
|
398
|
1 |
47 |
if (ref $ev eq 'ARRAY') { } |
|
409
|
1 |
47 |
if ($$self{'__oe_forwards'}) |
|
414
|
0 |
0 |
if $$ev[0] <= 0 |
|
426
|
0 |
1 |
if ($@) { } |
|
|
0 |
1 |
elsif ($$f[0]{'__oe_forward_stop'}) { } |
|
427
|
0 |
0 |
if ($$self{'__oe_exception_cb'}) { } |
|
445
|
0 |
48 |
if $DEBUG > 1 |
|
447
|
11 |
37 |
unless @cbs |
|
454
|
4 |
33 |
if ($@) |
|
455
|
2 |
2 |
if (not $$self{'__oe_exception_rec'} and $$self{'__oe_exception_cb'}) { } |
|
|
1 |
1 |
elsif ($$self{'__oe_exception_rec'}) { } |
|
485
|
6 |
0 |
if exists $$self{'__oe_events'}{$ev} |
|
496
|
0 |
1 |
unless $$self{'__oe_cbs'} |
|
508
|
0 |
5 |
unless $$self{'__oe_cbs'} and @{$$self{'__oe_cbs'}[0];} |
|
523
|
0 |
6 |
unless $$self{'__oe_cbs'} and @{$$self{'__oe_cbs'}[0];} |
|
527
|
1 |
5 |
if (defined wantarray) |
|
563
|
0 |
0 |
if (scalar keys %{$$self{'__oe_forwards'};} <= 0) |
|
727
|
0 |
0 |
unless exists $ATTRIBUTES{$pkg} |
|
728
|
0 |
0 |
unless exists $ATTRIBUTES{$pkg}{"$ref"} |
|
732
|
0 |
0 |
$$a[0] ne '' || defined $$b[1] ? : |
|
744
|
37 |
1 |
if ($_ =~ /^event_cb (?:
\(
\s* ([^\),]*) \s*
(?: , \s* ([^\)]+) \s* )?
\)
)?$/ux) |
|
764
|
0 |
34 |
unless $superpkg->isa('Object::Event') |
|
768
|
27 |
7 |
unless *{"${superpkg}::__OE_METHODS";}{'HASH'} |
|
772
|
0 |
21 |
unless ${"${superpkg}::__OE_METHODS";}{$_} |
|
782
|
912 |
36 |
unless exists $ATTRIBUTES{$pkg}{"$coderef"} |
|
787
|
12 |
24 |
if (defined $$m[1]) |
|
792
|
0 |
36 |
if $DEBUG > 1 |
|
806
|
2 |
32 |
exists $PRIO_MAP{$$m[0]} ? : |
|
|
34 |
2 |
if defined &{"${pkg}::$realmeth";} |
|
838
|
0 |
24 |
if $DEBUG > 1 |
|
844
|
1 |
23 |
unless $$self{'__oe_events'}{$ev} or ${"${pkg}::__OE_METHODS";}{$ev} |
|
854
|
3 |
21 |
if ($@) |
|
855
|
2 |
1 |
if (not $$self{'__oe_exception_rec'} and $$self{'__oe_exception_cb'}) { } |
|
|
1 |
0 |
elsif ($$self{'__oe_exception_rec'}) { } |