Branch Coverage

blib/lib/Net/PSYC/Circuit.pm
Criterion Covered Total %
branch 95 170 55.8


line true false branch
15 0 1 unless my $socket = 'IO::Socket::INET'->new('LocalAddr', $ip || undef, 'LocalPort', $port || undef, 'Proto', 'tcp', 'Listen', 7, 'Blocking', BLOCKING() & 2, 'Timeout', 5, 'ReuseAddr', 1)
37 1 0 unless BLOCKING() & 2
76 2 0 if $$self{'R_HOST'}
83 2 0 if $result
92 2 0 unless BLOCKING() & 2
93 0 2 if (BLOCKING() & 1) { }
110 0 1 unless ($socket)
137 2 0 if exists $_[0]
147 0 0 if (not defined $on or $on) { }
148 0 0 if $self->accepting_modules($module)
154 0 0 unless $$self{'R'}{'_understand_modules'}{$module}
156 0 0 if ($module eq '_compress') { }
0 0 elsif ($module eq '_encrypt') { }
159 0 0 unless (SSL())
178 0 0 if not exists $$self{'O'}{'_understand_modules'}{$module}
186 0 2 unless $$self{'O'}{'_understand_modules'}{$module}
196 2 0 unless (exists $$self{'R'}{'_using_modules'})
201 0 2 if ($module eq '_encrypt') { }
2 0 elsif ($module eq '_compress') { }
202 0 0 if ($$self{'SSL_client'}) { }
216 0 2 unless (exists $$self{'R'}{'_understand_modules'})
220 0 2 unless $self->accepting_modules($module)
222 0 2 if ($module eq '_encrypt') { }
2 0 elsif ($module eq '_compress') { }
223 0 0 unless (SSL())
251 3 18 if $$self{'L'} or BLOCKING()
253 17 1 if exists $$self{'ping_id'}
266 0 0 if (ref $t ne 'IO::Socket::SSL')
272 0 0 unless (BLOCKING())
282 0 2 unless (eval { do { require Net::PSYC::MMP::Compress } })
290 0 2 unless ($$self{'_compress'})
299 0 2 unless (eval { do { require Net::PSYC::MMP::Compress } })
304 2 0 unless ($$self{'_compress'})
343 2 0 unless (BLOCKING() & 1)
346 1 1 if ($$self{'L'} or BLOCKING() & 1 and BLOCKING() & 2)
390 0 11 if (not exists $$vars{'_source'} and exists $$self{'me'})
393 1 10 if (ref $data eq 'ARRAY') { }
407 0 11 if $prio
409 0 11 if (BLOCKING()) { }
0 11 elsif ($$self{'OK'}) { }
424 4 2 if $target
433 1 5 if (not exists $$vars{'_source'} and exists $$self{'me'})
438 0 6 if (BLOCKING()) { }
450 1 21 unless $$self{'OK'}
456 6 15 if (scalar @$N) { }
15 0 elsif (exists $$O[$$self{'O_COUNT'}]) { }
465 5 16 if $$vars{'_amount_fragments'}
478 0 21 if (not defined syswrite($$self{'SOCKET'}, $m)) { }
481 0 0 if (++$$self{'error'} >= 3)
495 2 19 if $cb
501 17 4 if (($$vars{'_amount_fragments'} || @$data) == $count + 1) { }
504 6 11 if (scalar @$N) { }
516 8 13 unless exists $$O[$$self{'O_COUNT'}]
517 18 3 if (@$N or @$O)
518 0 18 if (BLOCKING() or $Net::PSYC::ANACHRONISM) { }
535 0 7 unless $read
540 0 7 unless ($self->trigger('decrypt', \$data))
546 0 7 unless defined $read
556 4 3 unless ($$self{'LF'})
559 2 2 if ($$self{'I_LENGTH'} > 2)
560 2 0 if ($$self{'I_BUFFER'} =~ s/^\.(\r?\n)//g) { }
584 2 25 unless $$self{'LF'}
585 4 21 if $$self{'I_LENGTH'} < 0 or '' eq $$self{'I_BUFFER'}
589 0 21 unless defined $vars
591 0 21 if ($vars < 0)
596 0 21 if ($vars == 0)
601 2 19 if (exists $$vars{'_using_modules'})
603 2 0 if (not ref $$vars{'_using_modules'} eq 'ARRAY') { }
604 2 0 if $$vars{'_using_modules'}
607 0 0 if $_
612 0 21 unless $self->trigger('receive', $vars, \$data)
615 1 18 unless (exists $$self{'me'} or $$self{'L'} or not exists $$vars{'_target'})
618 1 0 if (ref $r and $$r{'host'}) { }
622 0 1 unless ($ip)
635 0 21 if each %{$$self{'vars'};}
642 20 1 if (not exists $$vars{'_source'}) { }
646 0 1 unless (ref $h)
652 0 1 if (not same_host($$h{'host'}, $$self{'R_IP'})) { }
653 0 0 if ($self->TRUST < 5)
676 5 16 if (exists $$vars{'_fragment'})
681 1 4 unless (exists $$self{'CACHE'}{$packet_id})
694 5 0 unless $$c[$$vars{'_fragment'}]
698 1 4 if ($$v{'_amount'} == $$v{'_amount_fragments'}) { }
708 2 15 if $data eq ''
717 0 0 if $$self{'SOCKET'}