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]) |