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