Branch Coverage

blib/lib/Socket/GetAddrInfo/Emul.pm
Criterion Covered Total %
branch 37 74 50.0


line true false branch
116 6 0 $errno == 0 ? :
151 1 2 unless defined $node
153 0 3 unless defined $service
158 0 3 unless $family == 2
176 0 3 if $flags & 960
179 0 3 unless $flags == 0
181 0 3 if $node eq '' and $service eq ''
185 1 2 if ($node ne '') { }
186 0 1 if $flag_numerichost and not $node =~ /^$REGEXP_IPv4_DOTTEDQUAD$/
188 0 1 unless defined $canonname
190 1 0 unless $flag_canonname
193 0 2 $flag_passive ? :
199 0 3 if ($protocol)
203 0 3 if ($service ne '' and not $service =~ /^\d+$/)
204 0 0 if $flag_numericserv
205 0 0 unless getservbyname $service, $protname
209 6 3 if $socktype and $this_socktype != $socktype
212 3 0 if $this_socktype == 1
213 0 3 if $this_socktype == 2
215 0 3 if $protname and $this_protname ne $protname
218 3 0 if ($service ne '') { }
219 3 0 if ($service =~ /^\d+$/) { }
224 0 0 unless defined $port
249 0 3 if (defined $canonname)
279 0 3 unless eval { do { ($port, $inetaddr) = unpack_sockaddr_in($addr) } }
292 0 3 if $flags & 224
295 0 3 unless $flags == 0
300 0 3 if ($xflags & 1) { }
2 1 elsif ($flag_numerichost) { }
308 0 1 if (not defined $node) { }
0 1 elsif ($flag_nofqdn) { }
309 0 0 if $flag_namereqd
315 0 0 if defined $fqdn and $fqdn eq $node
320 0 3 if ($xflags & 2) { }
2 1 elsif ($flag_numericserv) { }
327 0 1 $flag_dgram ? :
329 0 1 unless (defined $service)