Branch Coverage

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)