| line |
true |
false |
branch |
|
33
|
10 |
3 |
if @_ |
|
34
|
10 |
3 |
if @_ |
|
35
|
10 |
3 |
if @_ |
|
42
|
0 |
10 |
if $Net::Server::Proto::TCP::ISA[0] eq "IO::Socket::INET" and "Net::Server::Proto"->requires_ipv6($server) |
|
52
|
1 |
9 |
defined $udp->{'udp_recv_len'} ? : |
|
|
0 |
10 |
defined $info->{'udp_recv_len'} ? : |
|
54
|
10 |
0 |
$len =~ /^(\d+)$/ ? : |
|
57
|
0 |
10 |
defined $udp->{'udp_recv_flags'} ? : |
|
|
0 |
10 |
defined $info->{'udp_recv_flags'} ? : |
|
59
|
10 |
0 |
$flg =~ /^(\d+)$/ ? : |
|
68
|
0 |
10 |
exists $info->{'udp_broadcast'} ? : |
|
69
|
0 |
10 |
if defined $info->{'orig_port'} |
|
71
|
10 |
0 |
wantarray ? : |
|
79
|
0 |
1 |
'Net::Server::Proto'->requires_ipv6($server) ? : |
|
81
|
1 |
0 |
$host ne '*' ? : |
|
|
0 |
0 |
$ipv eq '4' ? : |
|
|
0 |
0 |
$ipv eq '6' ? : |
|
|
0 |
1 |
$isa_v6 ? : |
|
|
0 |
1 |
$sock->NS_broadcast ? : |
|
|
0 |
1 |
unless $sock->SUPER::configure({"LocalPort", $port, "Proto", "udp", "ReuseAddr", 1, "Reuse", 1, $host ne "*" ? ("LocalAddr", $host) : (), $isa_v6 ? ("Domain", $ipv eq 6 ? Socket6::AF_INET6() : ($ipv eq 4 ? 2 : 0)) : (), $sock->NS_broadcast ? ("Broadcast", 1) : ()}) |
|
91
|
0 |
1 |
if ($port eq 0 and $port = $sock->sockport) { } |
|
|
0 |
2 |
elsif ($port =~ /\D/ and $port = $sock->sockport) { } |