Branch Coverage

blib/lib/RPC/pServer.pm
Criterion Covered Total %
branch 47 124 37.9


line true false branch
73 32 0 if (not $$self{'stderr'}) { }
86 0 0 if (defined $RPC::pServer::configFile)
91 0 0 unless (open FILE, "<$file")
99 0 0 if ($line =~ /^\s*accept\s+(\S+)\s*$/i) { }
0 0 elsif ($line =~ /^\s*deny\s+(\S+)\s*$/i) { }
0 0 elsif ($line =~ /^\s*(\S+)\s+(.*\S)\s*$/) { }
0 0 elsif (not $line =~ /^\s*$/) { }
108 0 0 if (defined $client) { }
147 0 2 if (defined $$self{'configFile'})
149 0 0 unless (ref $result)
156 2 0 if (not defined $$self{'inetd'}) { }
159 0 2 unless (defined $sock)
181 0 0 if ($sock->peerhost =~ /$mask/ or $name =~ /$mask/)
185 0 0 unless ($found)
187 0 0 if ($alias =~ /$mask/)
193 0 0 unless ($found)
196 0 0 if (Socket::inet_ntoa($addr) =~ /$mask/)
202 0 0 if ($found)
204 0 0 unless ($$client{'accept'})
211 0 0 if (defined($key = $$client{'key'}) and defined($class = $$client{'encryption'}))
214 0 0 unless (defined($module = $$client{'encryptModule'}))
223 0 0 if ($@)
232 0 2 if ($$self{'configFile'} and not $$self{'client'})
246 0 2 if ($self->_HaveOoStorable) { }
251 0 0 unless (defined $$self{'io'})
260 2 0 if ($$self{'debug'})
266 0 2 unless (defined $loginMsg)
271 0 2 if (ref $loginMsg ne 'ARRAY')
279 2 0 if ($$self{'debug'})
285 0 2 unless (defined $$self{'application'} and defined $$self{'version'})
344 0 24 if ($$self{'sock'}->eof)
352 0 24 unless (defined $msg)
359 0 24 if (ref $msg ne 'ARRAY') { }
0 24 elsif (not defined($command = shift @$msg)) { }
2 22 elsif (not defined($commandRef = $$self{'funcTable'}{$command})) { }
369 0 22 if ($@ ne '') { }
373 0 22 unless (defined $ok)
376 2 20 if (not $ok) { }
377 2 0 if (@result) { }
388 4 20 if ($self->error) { }
20 0 elsif ($$self{'debug'}) { }
396 2 22 if (scalar @result == 1 and not defined $result[0]) { }
400 0 2 unless ($self->_Store([$ok, undef]))
406 0 22 unless ($self->_Store([$ok, @result]))
432 0 0 if (@_ == 2)
433 0 0 if ($self->_HaveOoStorable) { }
439 0 0 $self->_HaveOoStorable ? :
473 0 12 if (not defined($hRef = $$ref{'handles'}) or ref $hRef ne 'HASH')
477 2 10 unless (defined $objectHandle and exists $$hRef{$objectHandle})
488 0 2 if (not defined($hRef = $$ref{'handles'}) or ref $hRef ne 'HASH')
492 0 2 unless (exists $$hRef{$objectHandle})
505 2 10 unless (defined $objectRef)
509 2 8 if ($method eq 'DESTROY') { }
510 0 2 unless (DestroyHandle $con, $ref, $objectHandle)
514 0 8 unless ($objectRef->can($method))
519 0 8 if ($@)
531 0 2 if (not defined($hRef = $$ref{'handles'}) or ref $hRef ne 'HASH')
535 0 2 exists $$hRef{'num'} ? :
549 2 0 if ($class eq $classWanted)
553 0 2 if ($@)
557 0 2 unless (defined $object)
562 0 2 if ($con->error or not defined $handle)