| 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] |