| line |
true |
false |
branch |
|
19
|
0 |
10 |
unless $self->{'ua'}{'ssl_opts'} |
|
20
|
6 |
4 |
if (delete $ssl_opts{'verify_hostname'}) { } |
|
25
|
0 |
4 |
if ($Net::HTTPS::SSL_SOCKET_CLASS eq 'Net::SSL') { } |
|
31
|
6 |
4 |
if ($ssl_opts{'SSL_verify_mode'}) |
|
32
|
0 |
0 |
unless (exists $ssl_opts{'SSL_ca_file'} or exists $ssl_opts{'SSL_ca_path'}) |
|
33
|
0 |
0 |
if ($Net::HTTPS::SSL_SOCKET_CLASS eq 'IO::Socket::SSL' and defined &IO::Socket::SSL::default_ca and IO::Socket::SSL::default_ca()) { } |
|
|
0 |
0 |
elsif (my $cafile = eval {
do {
require Mozilla::CA;
Mozilla::CA::SSL_ca_file()
}
}) { } |
|
75
|
8 |
0 |
if ($sock->can("get_sslversion") and my $sslversion = $sock->get_sslversion) |
|
80
|
8 |
0 |
if ($cert) |
|
84
|
8 |
0 |
if (not $self->{'ssl_opts'}{'SSL_verify_mode'}) { } |
|
|
0 |
0 |
elsif (not $self->{'ssl_opts'}{'SSL_verifycn_scheme'}) { } |
|
101
|
0 |
6 |
$url->host =~ /:|^[\d.]+$/s ? : |
|
103
|
0 |
6 |
if (UNIVERSAL::can($sock, "is_SSL") and $sock->is_SSL) |
|
104
|
0 |
0 |
unless $usebio = eval {
do {
$Net::HTTPS::SSL_SOCKET_CLASS->can_nested_ssl
}
} |
|
114
|
0 |
6 |
unless ($sock) |
|
118
|
6 |
0 |
if ($usebio and my(@fields) = grep({/^http_/;} keys %{*$osock;})) |