| blib/lib/Net/PSYC/Hook.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 20 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 7 | 76 | 15 | unless exists $$self{'hooks'}{$hook} |
| 9 | 0 | 15 | unless ($$_[0](@_)) |
| 22 | 0 | 4 | unless (ref $obj) |
| 24 | 0 | 0 | unless ref $obj |
| 26 | 0 | 4 | unless $obj->can($hook) |
| 27 | 4 | 0 | unless (exists $$self{'hooks'}{$hook}) |
| 31 | 0 | 4 | unless $sub |
| 33 | 2 | 2 | if ($prio > 0) { } |
| 46 | 2 | 0 | unless exists $$self{'hooks'}{$hook} |
| 49 | 0 | 0 | if ($$_[1] eq $obj) |