blib/lib/AnyEvent/TLS.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 13 | 72 | 18.0 |
line | l | !l | condition |
---|---|---|---|
626 | 1 | 0 | exists $arg{'tlsv1_1'} and not $arg{'tlsv1_1'} and 1 |
627 | 1 | 0 | exists $arg{'tlsv1_2'} and not $arg{'tlsv1_2'} and 1 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
576 | 0 | 0 | 1 | $Net::SSLeay::VERSION >= 1.55 && Net::SSLeay::OPENSSL_VERSION_NUMBER() >= 268439567 |
624 | 1 | 0 | 0 | exists $arg{'sslv3'} and not $arg{'sslv3'} |
625 | 1 | 0 | 0 | exists $arg{'tlsv1'} and not $arg{'tlsv1'} |
626 | 1 | 0 | 0 | exists $arg{'tlsv1_1'} and not $arg{'tlsv1_1'} |
627 | 1 | 0 | 0 | exists $arg{'tlsv1_2'} and not $arg{'tlsv1_2'} |
805 | 0 | 0 | 0 | exists $self->{'verify_peername'} and 'none' ne lc $self->{'verify_peername'} |
808 | 0 | 0 | 0 | ref $self->{'verify_peername'} and 'ARRAY' ne ref $self->{'verify_peername'} |
821 | 0 | 0 | 0 | $preverify_ok &&= $self->_verify_hostname($cn, $cert) |
1004 | 0 | 0 | 0 | $type == 2 and $name =~ /^([^.]*)\*(.+)/ |
0 | 0 | 0 | $type == 1 and $name =~ /^\*(\..+)$/ | |
1048 | 0 | 0 | 0 | $scheme->[2] == 1 and not $alt_dns_count |
line | l | !l | condition |
---|---|---|---|
614 | 0 | 1 | lc $arg{'method'} || 'any' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
616 | 1 | 0 | 0 | $SSL_METHODS{$method} || croak("'${method}' is not a valid AnyEvent::TLS method (must be one of @{[sort(keys %SSL_METHODS)];})") |
628 | 1 | 0 | 0 | not exists $arg{'dh_single_use'} or $arg{'dh_single_use'} |
634 | 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") |
703 | 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'} | |
709 | 0 | 0 | 0 | exists $arg{'ca_file'} or exists $arg{'ca_path'} |
724 | 0 | 1 | 0 | exists $arg{'cert'} or exists $arg{'cert_file'} |
734 | 0 | 0 | 1 | exists $arg{'key'} or exists $arg{'key_file'} |
852 | 0 | 5 | 0 | $self->{'session_ticket'} or not exists $self->{'session_ticket'} |
1048 | 0 | 0 | 0 | $scheme->[2] == 2 or $scheme->[2] == 1 and not $alt_dns_count |