| line |
!l |
l&&!r |
l&&r |
condition |
|
33
|
0 |
0 |
282 |
$arg and %$arg |
|
35
|
282 |
0 |
0 |
defined(my $family2 = delete $arg->{'Domain'}) and not defined $family |
|
36
|
37 |
0 |
245 |
not defined $family and my $addr = $arg->{'LocalHost'} || $arg->{'PeerHost'} || $arg->{'LocalAddr'} || $arg->{'PeerAddr'} |
|
46
|
90 |
0 |
192 |
$ISA[0] eq "IO::Socket::INET" and defined $family |
|
|
90 |
159 |
33 |
$ISA[0] eq "IO::Socket::INET" and defined $family and $family ne &AF_INET() |
|
52
|
0 |
0 |
2 |
$@ =~ /^(.*)/ && "\n[$_] ($!) $1" |
|
55
|
33 |
0 |
0 |
$pkg->new('LocalAddr', '[::]', 'Listen', 1) && $pkg->new('LocalAddr', '127.0.0.1', 'Listen', 1) |
|
66
|
0 |
0 |
0 |
$@ = "Preferred ipv6_package (@try) could not be loaded:$err" and $family |
|
73
|
0 |
159 |
123 |
not defined $arg->{'GetAddrInfoFlags'} and $fake_danger |
|
74
|
271 |
11 |
0 |
defined $arg->{'V6Only'} and $self->isa("IO::Socket::INET6") |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
36
|
134 |
111 |
0 |
$arg->{'LocalHost'} || $arg->{'PeerHost'} || $arg->{'LocalAddr'} || $arg->{'PeerAddr'} |
|
38
|
0 |
75 |
0 |
$addr =~ /^\[[a-fA-F\d:]+\](|:\w+|\w+\(\d+\))$/ or $addr =~ /^(?:[a-fA-F\d]*:){2,7}([a-fA-F\d]*|\d+\.\d+\.\d+\.\d+)$/ |
|
56
|
33 |
0 |
0 |
$pkg->new("LocalAddr", "[::]", "Listen", 1, "GetAddrInfoFlags", 0) or $pkg->new("LocalAddr", "127.0.0.1", "Listen", 1, "GetAddrInfoFlags", 0) |