Branch Coverage

blib/lib/IPC/PidStat.pm
Criterion Covered Total %
branch 34 60 56.6


line true false branch
41 0 1 unless @_ >= 1
59 9 1 if $self->{'_socket_fh'}
60 0 1 unless $self->{'_socket_fh'} = "IO::Socket::INET"->new("Proto", "udp")
83 2 2 if ($IPC::PidStat::Local_Hostnames{$params{'host'}})
86 2 0 if $res
90 4 0 if (not defined $res)
93 4 0 $params{'return_exist'} ? :
4 0 $params{'return_doesnt'} ? :
4 0 $params{'return_unknown'} ? :
97 2 2 unless ($ipnum)
101 0 2 unless $ipnum = inet_aton($params{'host'})
113 2 2 if ($#_Local_Responses >= 0) { }
115 2 0 if $IPC::PidStat::Debug
117 0 2 unless $self->fh->recv($in_msg, 8192)
119 2 0 if $IPC::PidStat::Debug
121 4 0 if ($in_msg =~ /^EXIS (\d+) (\d+) (\S+)/) { }
0 0 elsif ($in_msg =~ /^UNKN (\d+) (\s+) (\S+)/) { }
123 4 0 if $IPC::PidStat::Debug
143 0 4 if $@
144 4 0 if defined $recved[0]
165 0 0 if (not $eexists) { }
181 1 1 if ($exists) { }
1 0 elsif (defined $exists) { }
196 3 11 unless defined $_Hostfqdn
206 0 1 unless defined $result
216 3 1 kill(0, $pid) ? :
217 1 3 if ($!)
218 1 0 if ($! == 3) { }
0 0 elsif ($! == 1 and $IPC::PidStat::Stat_Of_Pid_Supported) { }
222 0 0 -e "/proc/$pid" ? :