Branch Coverage

blib/lib/Class/Trigger.pm
Criterion Covered Total %
branch 48 50 96.0


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)
97 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 7 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]}
163 1 1 ref $self ? :
2 3 unless $$points{$when}
170 3 27 ref $obj ? :