blib/lib/Class/Trigger.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 29 | 32 | 90.6 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
31 | 21 | 8 | 1 | @_ > 2 and grep({ref $_ eq 'CODE' if ref $_;} @values) == @values |
35 | 8 | 1 | 20 | $#_ == 1 and ref $_[1] eq 'CODE' |
76 | 48 | 2 | 1 | $trigger->[1] and not $return[0] |
121 | 1 | 6 | 29 | defined $when and $Triggers{$c}{$when} |
155 | 1 | 1 | 35 | ref $obj and defined $when |
line | l | !l | condition |
---|---|---|---|
147 | 36 | 1 | $when or '' |
156 | 2 | 33 | $obj->{'__triggers'}{$when} || [] |
170 | 1 | 2 | $obj->{'__triggers'} ||= {} |
21 | 10 | ref $obj ? $obj->{'__triggers'} ||= {} : $Triggers{$obj} ||= {} |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
92 | 36 | 7 | 0 | ref $obj || $obj |
145 | 36 | 1 | 0 | ref $proto || $proto |
161 | 9 | 26 | 0 | ref $_[0] or $_[0] |