| line |
true |
false |
branch |
|
91
|
0 |
0 |
unless $File::Temp::VERSION |
|
588
|
0 |
1 |
unless eval 'Net::SSLeay::ST_OK (); 1' |
|
612
|
1 |
0 |
unless $REF_IDX |
|
623
|
1 |
0 |
unless $arg{'sslv2'} |
|
624
|
0 |
1 |
if exists $arg{'sslv3'} and not $arg{'sslv3'} |
|
625
|
0 |
1 |
if exists $arg{'tlsv1'} and not $arg{'tlsv1'} |
|
626
|
0 |
0 |
if exists $arg{'tlsv1_1'} and not $arg{'tlsv1_1'} and 1 |
|
627
|
0 |
0 |
if exists $arg{'tlsv1_2'} and not $arg{'tlsv1_2'} and 1 |
|
628
|
1 |
0 |
if not exists $arg{'dh_single_use'} or $arg{'dh_single_use'} |
|
634
|
0 |
1 |
if exists $arg{'cipher_list'} |
|
638
|
0 |
1 |
if (exists $arg{'dh_file'}) { } |
|
641
|
0 |
0 |
unless $dh_bio = &Net::SSLeay::BIO_new_file($dh_file, 'r') |
|
644
|
1 |
0 |
unless exists $arg{'dh'} |
|
646
|
1 |
0 |
if (defined $arg{'dh'}) |
|
649
|
1 |
0 |
if ($arg{'dh'} =~ /^\w+$/) |
|
662
|
1 |
0 |
if ($dh_bio) |
|
665
|
0 |
1 |
unless $dh |
|
668
|
0 |
1 |
unless $rv |
|
671
|
0 |
1 |
if ($arg{'verify'}) { } |
|
675
|
0 |
0 |
if $arg{'verify_require_client_cert'} |
|
678
|
0 |
0 |
if $arg{'verify_client_once'} |
|
685
|
0 |
1 |
if exists $arg{'verify_peername'} |
|
688
|
0 |
1 |
if exists $arg{'verify_cb'} |
|
691
|
0 |
1 |
if exists $arg{'session_ticket'} |
|
694
|
0 |
1 |
if length $ENV{'PERL_ANYEVENT_TLS_DEBUG'} |
|
697
|
0 |
1 |
if exists $arg{'debug'} |
|
700
|
0 |
1 |
ref $pw ? : |
|
702
|
0 |
1 |
if ($self->{'verify_mode'}) |
|
703
|
0 |
0 |
if (exists $arg{'ca_file'} or exists $arg{'ca_path'} or exists $arg{'ca_cert'}) { } |
|
|
0 |
0 |
elsif (length $ENV{'PERL_ANYEVENT_CA_FILE'} or length $ENV{'PERL_ANYEVENT_CA_PATH'}) { } |
|
705
|
0 |
0 |
if (exists $arg{'ca_cert'}) |
|
709
|
0 |
0 |
if (exists $arg{'ca_file'} or exists $arg{'ca_path'}) |
|
724
|
1 |
0 |
if (exists $arg{'cert'} or exists $arg{'cert_file'}) |
|
727
|
0 |
1 |
if (exists $arg{'cert'}) |
|
729
|
0 |
0 |
if exists $arg{'cert_file'} |
|
734
|
0 |
1 |
if (exists $arg{'key'} or exists $arg{'key_file'}) { } |
|
735
|
0 |
0 |
if (exists $arg{'key'}) |
|
737
|
0 |
0 |
if exists $arg{'key_file'} |
|
745
|
0 |
1 |
unless &Net::SSLeay::CTX_use_PrivateKey_file($ctx, $arg{'key_file'}, scalar Net::SSLeay::FILETYPE_PEM()) |
|
749
|
0 |
1 |
unless &Net::SSLeay::CTX_use_certificate_chain_file($ctx, $arg{'cert_file'}) |
|
752
|
0 |
1 |
if ($arg{'check_crl'}) |
|
753
|
0 |
0 |
unless Net::SSLeay::OPENSSL_VERSION_NUMBER() >= 9465903 |
|
764
|
0 |
1 |
if $arg{'prepare'} |
|
801
|
0 |
0 |
unless defined $cn |
|
805
|
0 |
0 |
unless exists $self->{'verify_peername'} and 'none' ne lc $self->{'verify_peername'} |
|
808
|
0 |
0 |
if ref $self->{'verify_peername'} and 'ARRAY' ne ref $self->{'verify_peername'} |
|
816
|
0 |
0 |
$x509_store_ctx ? : |
|
821
|
0 |
0 |
unless $depth |
|
825
|
0 |
0 |
if $self->{'verify_cb'} |
|
847
|
5 |
5 |
if ($mode eq 'accept') { } |
|
|
5 |
0 |
elsif ($mode eq 'connect') { } |
|
852
|
0 |
5 |
unless $self->{'session_ticket'} or not exists $self->{'session_ticket'} |
|
857
|
5 |
0 |
if (defined &Net::SSLeay::set_tlsext_host_name) { } |
|
858
|
5 |
0 |
if length $cn |
|
861
|
0 |
0 |
unless $TLS_SNI_WARNED++ |
|
868
|
5 |
0 |
unless $self->{'session_ticket'} |
|
878
|
0 |
10 |
if ($self->{'debug'}) |
|
882
|
0 |
10 |
if ($self->{'verify_mode'}) |
|
937
|
0 |
1 |
if $REF_IDX |
|
939
|
0 |
1 |
if $Net::SSLeay::VERSION < 1.33 |
|
958
|
0 |
0 |
$_[0] ? : |
|
1004
|
0 |
0 |
if ($type == 2 and $name =~ /^([^.]*)\*(.+)/) { } |
|
|
0 |
0 |
elsif ($type == 1 and $name =~ /^\*(\..+)$/) { } |
|
1021
|
0 |
0 |
unless $scheme = $CN_SCHEME{$scheme} |
|
1038
|
0 |
0 |
if ($type == Net::SSLeay::GEN_IPADD()) { } |
|
|
0 |
0 |
elsif ($type == Net::SSLeay::GEN_DNS()) { } |
|
1040
|
0 |
0 |
if $ip eq $name |
|
1044
|
0 |
0 |
if &match_cn($name, $cn, $scheme->[1]) |
|
1048
|
0 |
0 |
if ($scheme->[2] == 2 or $scheme->[2] == 1 and not $alt_dns_count) |
|
1050
|
0 |
0 |
if &match_cn($cert_cn, $cn, $scheme->[0]) |