| line |
true |
false |
branch |
| 15 |
1 |
7 |
if @_ |
| 29 |
1 |
15 |
unless ref $code eq 'CODE' |
| 40 |
17 |
5 |
if (my(@triggers) = __fetch_all_triggers($self, $when)) { } |
| 55 |
22 |
3 |
unless ($list) |
| 69 |
3 |
25 |
if $$list{$c} |
| 70 |
25 |
0 |
if (UNIVERSAL::can($c, 'call_trigger')) |
| 72 |
3 |
22 |
unless $c eq $class |
| 74 |
16 |
9 |
if (defined $when and $Triggers{$c}{$when}) |
| 80 |
22 |
3 |
if ($return) |
| 85 |
20 |
2 |
if (ref $obj and defined $when) |
| 87 |
2 |
18 |
if $obj_triggers |
| 94 |
18 |
4 |
unless my $points = $TriggerPoints{ref $_[0] or $_[0]} |
| 96 |
1 |
1 |
ref $self ? : |
| |
2 |
2 |
unless $$points{$when} |
| 103 |
3 |
14 |
ref $obj ? : |