blib/lib/AnyEvent/TLS.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 13 | 72 | 18.0 |
line | l | !l | condition |
---|---|---|---|
635 | 1 | 0 | exists $arg{'tlsv1_1'} and not $arg{'tlsv1_1'} and 1 |
636 | 1 | 0 | exists $arg{'tlsv1_2'} and not $arg{'tlsv1_2'} and 1 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
585 | 0 | 0 | 1 | $Net::SSLeay::VERSION >= 1.55 && Net::SSLeay::OPENSSL_VERSION_NUMBER() >= 268439567 |
633 | 1 | 0 | 0 | exists $arg{'sslv3'} and not $arg{'sslv3'} |
634 | 1 | 0 | 0 | exists $arg{'tlsv1'} and not $arg{'tlsv1'} |
635 | 1 | 0 | 0 | exists $arg{'tlsv1_1'} and not $arg{'tlsv1_1'} |
636 | 1 | 0 | 0 | exists $arg{'tlsv1_2'} and not $arg{'tlsv1_2'} |
814 | 0 | 0 | 0 | exists $self->{'verify_peername'} and 'none' ne lc $self->{'verify_peername'} |
817 | 0 | 0 | 0 | ref $self->{'verify_peername'} and 'ARRAY' ne ref $self->{'verify_peername'} |
830 | 0 | 0 | 0 | $preverify_ok &&= $self->_verify_hostname($cn, $cert) |
1013 | 0 | 0 | 0 | $type == 2 and $name =~ /^([^.]*)\*(.+)/ |
0 | 0 | 0 | $type == 1 and $name =~ /^\*(\..+)$/ | |
1057 | 0 | 0 | 0 | $scheme->[2] == 1 and not $alt_dns_count |
line | l | !l | condition |
---|---|---|---|
623 | 0 | 1 | lc $arg{'method'} || 'any' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
625 | 1 | 0 | 0 | $SSL_METHODS{$method} || croak("'${method}' is not a valid AnyEvent::TLS method (must be one of @{[sort(keys %SSL_METHODS)];})") |
637 | 1 | 0 | 0 | not exists $arg{'dh_single_use'} or $arg{'dh_single_use'} |
643 | 0 | 0 | 0 | &Net::SSLeay::CTX_set_cipher_list($ctx, $arg{'cipher_list'}) or croak("'$arg{'cipher_list'}' was not accepted as a valid cipher list by AnyEvent::TLS") |
712 | 0 | 0 | 0 | exists $arg{'ca_file'} or exists $arg{'ca_path'} |
0 | 0 | 0 | exists $arg{'ca_file'} or exists $arg{'ca_path'} or exists $arg{'ca_cert'} | |
0 | 0 | 0 | length $ENV{'PERL_ANYEVENT_CA_FILE'} or length $ENV{'PERL_ANYEVENT_CA_PATH'} | |
718 | 0 | 0 | 0 | exists $arg{'ca_file'} or exists $arg{'ca_path'} |
733 | 0 | 1 | 0 | exists $arg{'cert'} or exists $arg{'cert_file'} |
743 | 0 | 0 | 1 | exists $arg{'key'} or exists $arg{'key_file'} |
861 | 0 | 5 | 0 | $self->{'session_ticket'} or not exists $self->{'session_ticket'} |
1057 | 0 | 0 | 0 | $scheme->[2] == 2 or $scheme->[2] == 1 and not $alt_dns_count |