| 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) |
|
51
|
1 |
9 |
defined $udp->{'udp_recv_len'} ? : |
|
|
0 |
10 |
defined $info->{'udp_recv_len'} ? : |
|
53
|
10 |
0 |
$len =~ /^(\d+)$/ ? : |
|
56
|
0 |
10 |
defined $udp->{'udp_recv_flags'} ? : |
|
|
0 |
10 |
defined $info->{'udp_recv_flags'} ? : |
|
58
|
10 |
0 |
$flg =~ /^(\d+)$/ ? : |
|
67
|
0 |
10 |
exists $info->{'udp_broadcast'} ? : |
|
68
|
0 |
10 |
if defined $info->{'orig_port'} |
|
70
|
10 |
0 |
wantarray ? : |
|
79
|
1 |
0 |
$host ne '*' ? : |
|
|
0 |
0 |
$ipv eq '4' ? : |
|
|
0 |
0 |
$ipv eq '6' ? : |
|
|
0 |
1 |
$sock->isa('IO::Socket::INET6') ? : |
|
|
0 |
1 |
$sock->NS_broadcast ? : |
|
|
0 |
1 |
unless $sock->SUPER::configure({'LocalPort', $port, 'Proto', 'udp', 'ReuseAddr', 1, 'Reuse', 1, $host ne '*' ? ('LocalAddr', $host) : (), $sock->isa('IO::Socket::INET6') ? ('Domain', $ipv eq '6' ? Socket6::AF_INET6() : ($ipv eq '4' ? 2 : 0)) : (), $sock->NS_broadcast ? ('Broadcast', 1) : ()}) |
|
89
|
0 |
1 |
if ($port eq 0 and $port = $sock->sockport) { } |
|
|
0 |
2 |
elsif ($port =~ /\D/ and $port = $sock->sockport) { } |