| line |
true |
false |
branch |
|
16
|
2 |
9 |
if @_ |
|
31
|
10 |
10 |
if ref $_ |
|
|
1 |
29 |
if (@_ > 2 and grep({ref $_ eq 'CODE' if ref $_;} @values) == @values) |
|
35
|
20 |
9 |
if ($#_ == 1 and ref $_[1] eq 'CODE') |
|
44
|
2 |
26 |
unless ref $code eq 'CODE' |
|
50
|
23 |
3 |
unless ref $proto |
|
58
|
1 |
0 |
ref $self ? : |
|
68
|
36 |
1 |
ref $self ? : |
|
72
|
31 |
6 |
if (my(@triggers) = __fetch_all_triggers($self, $when)) { } |
|
76
|
1 |
50 |
if $trigger->[1] and not $return[0] |
|
91
|
37 |
6 |
unless defined $nocache |
|
94
|
42 |
1 |
defined $when ? : |
|
96
|
37 |
6 |
unless ($nocache) |
|
98
|
7 |
30 |
if $Fetch_All_Triggers_Cache{$class}{$when_key} |
|
101
|
30 |
6 |
unless ($list) |
|
115
|
6 |
36 |
if $list->{$c} |
|
117
|
36 |
0 |
if ($c->can('call_trigger')) |
|
119
|
6 |
30 |
unless $c eq $class |
|
121
|
29 |
6 |
if (defined $when and $Triggers{$c}{$when}) |
|
127
|
30 |
6 |
if ($return) |
|
155
|
2 |
35 |
unless ref $obj and defined $when |
|
161
|
30 |
5 |
unless my $points = $TriggerPoints{ref $_[0] or $_[0]} |
|
164
|
1 |
1 |
ref $self ? : |
|
|
2 |
3 |
unless $points->{$when} |
|
170
|
3 |
27 |
ref $obj ? : |