| line |
true |
false |
branch |
|
270
|
0 |
108 |
unless @_ == 1 |
|
273
|
0 |
108 |
if ($self->with_ssl) |
|
287
|
108 |
0 |
lc $host eq 'localhost' ? : |
|
|
108 |
0 |
$self->connect_timeout >= 0 ? : |
|
|
108 |
0 |
unless my $fh = $SOCKET_CLASS->new('PeerHost', $ENV{'TEST_MONGO_SOCKET_HOST'} || $host, 'PeerPort', $port, lc $host eq 'localhost' ? ('Family', 2) : (), 'Proto', 'tcp', 'Type', 1, 'Timeout', $self->connect_timeout >= 0 ? $self->connect_timeout : undef) |
|
297
|
0 |
0 |
unless (binmode $fh) |
|
302
|
0 |
0 |
unless (defined $fh->setsockopt(6, 1, 1)) |
|
307
|
0 |
0 |
unless (defined $fh->setsockopt(1, 9, 1)) |
|
316
|
0 |
0 |
unless (defined $fd and $fd >= 0) |
|
323
|
0 |
0 |
if $self->with_ssl |
|
348
|
0 |
1 |
if ($self->accepts_wire_version(2)) |
|
351
|
0 |
1 |
if ($self->accepts_wire_version(3)) |
|
355
|
0 |
1 |
if ($self->accepts_wire_version(4)) |
|
363
|
0 |
1 |
if ($self->accepts_wire_version(5)) |
|
368
|
0 |
1 |
if ($self->accepts_wire_version(6)) |
|
372
|
0 |
0 |
defined $server->logical_session_timeout_minutes && $server->type ne 'Standalone' ? : |
|
381
|
0 |
1 |
if ($self->accepts_wire_version(7)) |
|
384
|
0 |
1 |
if ($self->accepts_wire_version(8)) |
|
411
|
0 |
0 |
unless (ref $self->fh eq 'IO::Socket::SSL') |
|
420
|
0 |
0 |
unless $self->fh and $self->fh->isa('IO::Socket::SSL') |
|
422
|
0 |
0 |
unless my $client_cert = $self->fh->sock_certificate |
|
425
|
0 |
0 |
unless my $subject_raw = Net::SSLeay::X509_get_subject_name($client_cert) |
|
436
|
0 |
0 |
unless $self->_close |
|
445
|
0 |
0 |
if ($self->fh) |
|
461
|
0 |
1 |
if (not $write_opt->{'disable_compression'} and $self->server and $self->server->compressor) |
|
476
|
1 |
0 |
if $len > $self->max_message_size_bytes |
|
485
|
0 |
0 |
if (-1 == ($nfound = select(undef, $self->fdset, undef, $pending))) |
|
486
|
0 |
0 |
unless ($! == 4) |
|
498
|
0 |
0 |
unless ($nfound) |
|
505
|
0 |
0 |
if (defined($r = syswrite($self->fh, $buf, $len, $off))) { } |
|
|
0 |
0 |
elsif ($! == 32) { } |
|
|
0 |
0 |
elsif ($! != 4) { } |
|
507
|
0 |
0 |
unless $len > 0 |
|
514
|
0 |
0 |
if ($self->fh->can('errstr')) { } |
|
544
|
0 |
0 |
if ($self->with_ssl) |
|
545
|
0 |
0 |
if $self->fh->pending |
|
549
|
0 |
0 |
if (-1 == ($nfound = select($self->fdset, undef, undef, $pending))) |
|
550
|
0 |
0 |
unless ($! == 4) |
|
562
|
0 |
0 |
unless ($nfound) |
|
569
|
0 |
0 |
if (defined($r = sysread($self->fh, $msg, $self->rcvbuf, length $msg))) { } |
|
|
0 |
0 |
elsif ($! != 4) { } |
|
572
|
0 |
0 |
unless ($r) |
|
578
|
0 |
0 |
if ($self->fh->can('errstr')) { } |
|
589
|
0 |
0 |
unless (defined $len) |
|
590
|
0 |
0 |
if length $msg < 4 |
|
594
|
0 |
0 |
if $len > $self->max_message_size_bytes |
|
596
|
0 |
0 |
unless length $msg < $len |
|
607
|
0 |
0 |
unless eval {
do {
require IO::Socket::SSL;
'IO::Socket::SSL'->VERSION(1.42)
}
} |
|
610
|
0 |
0 |
unless eval {
do {
require Net::SSLeay;
'Net::SSLeay'->VERSION(1.49)
}
} |
|
619
|
0 |
0 |
if $self->SSL_options->{'SSL_ca_file'} and -e $self->SSL_options->{'SSL_ca_file'} |
|
622
|
0 |
0 |
if eval {
do {
require Mozilla::CA
}
} |
|
635
|
0 |
0 |
if -e $ca_bundle |
|
650
|
0 |
0 |
if (Net::SSLeay::OPENSSL_VERSION_NUMBER() >= 268435456) |
|
654
|
0 |
0 |
if (Net::SSLeay::OPENSSL_VERSION_NUMBER() >= 269484032) |
|
665
|
0 |
0 |
if $k =~ /^SSL_/ |