| line |
true |
false |
branch |
|
31
|
39 |
0 |
unless ref $self |
|
39
|
0 |
39 |
if ($hostport =~ /^\d+$/) { } |
|
|
39 |
0 |
elsif ($hostport =~ /^\d+\.\d+\.\d+\.\d+:/) { } |
|
49
|
0 |
39 |
unless ($force_v4) |
|
51
|
0 |
0 |
if ($@) { } |
|
|
0 |
0 |
elsif (not eval {
do {
require IO::Socket::INET6;
1
}
}) { } |
|
60
|
0 |
39 |
$can_v6 ? : |
|
70
|
0 |
39 |
unless $sock |
|
73
|
0 |
39 |
if ($^O eq 'MSWin32') { } |
|
77
|
0 |
0 |
unless ioctl $sock, 2147772030, \$do |
|
82
|
0 |
39 |
unless &IO::Handle::blocking($sock, 0) |
|
101
|
0 |
89 |
if (my $sndbuf = $$self{'service'}{'client_sndbuf_size'}) |
|
116
|
0 |
89 |
if ($$self{'sslopts'}) |
|
128
|
0 |
0 |
unless ref $psock eq 'Perlbal::SocketSSL2' |
|
149
|
25 |
64 |
if ($service_role eq 'reverse_proxy') { } |
|
|
17 |
47 |
elsif ($service_role eq 'management') { } |
|
|
42 |
5 |
elsif ($service_role eq 'web_server') { } |
|
|
5 |
0 |
elsif ($service_role eq 'selector') { } |
|
|
0 |
0 |
elsif (my $creator = Perlbal::Service::get_role_creator($service_role)) { } |