Branch Coverage

blib/lib/Net/PSYC/Event.pm
Criterion Covered Total %
branch 31 64 48.4


line true false branch
43 0 2 if (ref $obj) { }
46 0 0 unless ($obj->can('msg'))
51 0 0 unless ($obj->can('diminish') and $obj->can('augment') and $obj->can('assign') and $obj->can('reset'))
60 0 2 if (defined $unl and exists $unl2wrapper{$unl} and $unl2wrapper{$unl}{'obj'} eq $obj)
63 0 2 unless (eval "$obj->can('msg')")
83 0 0 unless (ref $obj)
93 0 0 unless ($o)
95 0 0 if (ref $h)
110 26 0 unless ($o)
112 16 10 if (ref $h)
148 0 30 unless exists $PSYC_SOCKETS{fileno $socket}
151 0 30 unless ($repeat or $obj->read)
159 8 22 unless defined $MMPvars
161 6 16 if $MMPvars == 0
163 0 16 if ($MMPvars == -1)
170 16 0 if ($$MMPvars{'_target'})
173 0 16 unless (ref $t)
180 0 16 unless (same_host($$t{'host'}, '127.0.0.1'))
182 0 0 if ($obj->TRUST > 10)
194 0 16 if (not exists $$MMPvars{'_target'}) { }
200 0 16 unless ($cb)
216 0 16 if $mc eq ''
218 0 16 if (not $mc and $mc == 0)
226 2 14 if ($mc eq '_notice_circuit_established' and 0 or $mc eq '_status_circuit' and 1)
231 2 0 if (exists $$MMPvars{'_understand_modules'})
232 0 2 if (ref $$MMPvars{'_understand_modules'} eq 'ARRAY') { }
2 0 elsif ($$MMPvars{'_understand_modules'}) { }
247 40 21 if MERGEVAR($_)
256 1 3 if ($_[0] eq 'Event') { }
3 0 elsif ($_[0] eq 'IO::Select') { }
0 0 elsif ($_[0] eq 'Gtk2') { }
288 0 2 if (ref $o) { }