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