| line |
true |
false |
branch |
|
91
|
0 |
0 |
unless $File::Temp::VERSION
|
|
597
|
0 |
1 |
unless eval 'Net::SSLeay::ST_OK (); 1'
|
|
621
|
1 |
0 |
unless $REF_IDX
|
|
632
|
1 |
0 |
unless $arg{'sslv2'}
|
|
633
|
0 |
1 |
if exists $arg{'sslv3'} and not $arg{'sslv3'}
|
|
634
|
0 |
1 |
if exists $arg{'tlsv1'} and not $arg{'tlsv1'}
|
|
635
|
0 |
0 |
if exists $arg{'tlsv1_1'} and not $arg{'tlsv1_1'} and 1
|
|
636
|
0 |
0 |
if exists $arg{'tlsv1_2'} and not $arg{'tlsv1_2'} and 1
|
|
637
|
1 |
0 |
if not exists $arg{'dh_single_use'} or $arg{'dh_single_use'}
|
|
643
|
0 |
1 |
if exists $arg{'cipher_list'}
|
|
647
|
0 |
1 |
if (exists $arg{'dh_file'}) { }
|
|
650
|
0 |
0 |
unless $dh_bio = &Net::SSLeay::BIO_new_file($dh_file, 'r')
|
|
653
|
1 |
0 |
unless exists $arg{'dh'}
|
|
655
|
1 |
0 |
if (defined $arg{'dh'})
|
|
658
|
1 |
0 |
if ($arg{'dh'} =~ /^\w+$/)
|
|
671
|
1 |
0 |
if ($dh_bio)
|
|
674
|
0 |
1 |
unless $dh
|
|
677
|
0 |
1 |
unless $rv
|
|
680
|
0 |
1 |
if ($arg{'verify'}) { }
|
|
684
|
0 |
0 |
if $arg{'verify_require_client_cert'}
|
|
687
|
0 |
0 |
if $arg{'verify_client_once'}
|
|
694
|
0 |
1 |
if exists $arg{'verify_peername'}
|
|
697
|
0 |
1 |
if exists $arg{'verify_cb'}
|
|
700
|
0 |
1 |
if exists $arg{'session_ticket'}
|
|
703
|
0 |
1 |
if length $ENV{'PERL_ANYEVENT_TLS_DEBUG'}
|
|
706
|
0 |
1 |
if exists $arg{'debug'}
|
|
709
|
0 |
1 |
ref $pw ? :
|
|
711
|
0 |
1 |
if ($self->{'verify_mode'})
|
|
712
|
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'}) { }
|
|
714
|
0 |
0 |
if (exists $arg{'ca_cert'})
|
|
718
|
0 |
0 |
if (exists $arg{'ca_file'} or exists $arg{'ca_path'})
|
|
733
|
1 |
0 |
if (exists $arg{'cert'} or exists $arg{'cert_file'})
|
|
736
|
0 |
1 |
if (exists $arg{'cert'})
|
|
738
|
0 |
0 |
if exists $arg{'cert_file'}
|
|
743
|
0 |
1 |
if (exists $arg{'key'} or exists $arg{'key_file'}) { }
|
|
744
|
0 |
0 |
if (exists $arg{'key'})
|
|
746
|
0 |
0 |
if exists $arg{'key_file'}
|
|
754
|
0 |
1 |
unless &Net::SSLeay::CTX_use_PrivateKey_file($ctx, $arg{'key_file'}, scalar Net::SSLeay::FILETYPE_PEM())
|
|
758
|
0 |
1 |
unless &Net::SSLeay::CTX_use_certificate_chain_file($ctx, $arg{'cert_file'})
|
|
761
|
0 |
1 |
if ($arg{'check_crl'})
|
|
762
|
0 |
0 |
unless Net::SSLeay::OPENSSL_VERSION_NUMBER() >= 9465903
|
|
773
|
0 |
1 |
if $arg{'prepare'}
|
|
810
|
0 |
0 |
unless defined $cn
|
|
814
|
0 |
0 |
unless exists $self->{'verify_peername'} and 'none' ne lc $self->{'verify_peername'}
|
|
817
|
0 |
0 |
if ref $self->{'verify_peername'} and 'ARRAY' ne ref $self->{'verify_peername'}
|
|
825
|
0 |
0 |
$x509_store_ctx ? :
|
|
830
|
0 |
0 |
unless $depth
|
|
834
|
0 |
0 |
if $self->{'verify_cb'}
|
|
856
|
5 |
5 |
if ($mode eq 'accept') { }
|
|
|
5 |
0 |
elsif ($mode eq 'connect') { }
|
|
861
|
0 |
5 |
unless $self->{'session_ticket'} or not exists $self->{'session_ticket'}
|
|
866
|
5 |
0 |
if (defined &Net::SSLeay::set_tlsext_host_name) { }
|
|
867
|
5 |
0 |
if length $cn
|
|
870
|
0 |
0 |
unless $TLS_SNI_WARNED++
|
|
877
|
5 |
0 |
unless $self->{'session_ticket'}
|
|
887
|
0 |
10 |
if ($self->{'debug'})
|
|
891
|
0 |
10 |
if ($self->{'verify_mode'})
|
|
946
|
0 |
1 |
if $REF_IDX
|
|
948
|
0 |
1 |
if $Net::SSLeay::VERSION < 1.33
|
|
967
|
0 |
0 |
$_[0] ? :
|
|
1013
|
0 |
0 |
if ($type == 2 and $name =~ /^([^.]*)\*(.+)/) { }
|
|
|
0 |
0 |
elsif ($type == 1 and $name =~ /^\*(\..+)$/) { }
|
|
1030
|
0 |
0 |
unless $scheme = $CN_SCHEME{$scheme}
|
|
1047
|
0 |
0 |
if ($type == Net::SSLeay::GEN_IPADD()) { }
|
|
|
0 |
0 |
elsif ($type == Net::SSLeay::GEN_DNS()) { }
|
|
1049
|
0 |
0 |
if $ip eq $name
|
|
1053
|
0 |
0 |
if &match_cn($name, $cn, $scheme->[1])
|
|
1057
|
0 |
0 |
if ($scheme->[2] == 2 or $scheme->[2] == 1 and not $alt_dns_count)
|
|
1059
|
0 |
0 |
if &match_cn($cert_cn, $cn, $scheme->[0])
|