| line |
true |
false |
branch |
|
42
|
6 |
7 |
unless ($key_type) |
|
50
|
4 |
9 |
if ($key_type eq 'rsa') { } |
|
|
9 |
0 |
elsif ($key_type eq 'ecdsa') { } |
|
51
|
0 |
4 |
if (eval {
do {
require Crypt::OpenSSL::RSA;
require Crypt::OpenSSL::Bignum
}
}) { } |
|
|
0 |
4 |
elsif (eval {
do {
require Crypt::PK::RSA
}
}) { } |
|
54
|
0 |
0 |
if (0 == index($pem_or_der, '----')) { } |
|
74
|
0 |
9 |
if (eval {
do {
require Crypt::PK::ECC
}
}) |
|
80
|
0 |
0 |
unless ({secp256r1 => 'ES256', secp384r1 => 'ES384', secp521r1 => 'ES521'}->{$self{'curve_name'}}) |
|
112
|
4 |
9 |
if ($obj->isa('Crypt::Perl::RSA::PrivateKey')) { } |
|
|
9 |
0 |
elsif ($obj->isa('Crypt::Perl::ECDSA::PrivateKey')) { } |
|
133
|
2 |
11 |
if 0 == index($key_str, '-----BEGIN RSA ') |
|
134
|
5 |
6 |
if 0 == index($key_str, '-----BEGIN EC ') |
|
176
|
0 |
8 |
if ($engine eq 'crypt_openssl_rsa') { } |
|
|
0 |
8 |
elsif ($engine eq 'crypt_pk') { } |
|
|
8 |
0 |
elsif ($engine eq 'crypt_perl') { } |
|
195
|
0 |
16 |
if ($engine eq 'crypt_pk') { } |
|
|
16 |
0 |
elsif ($engine eq 'crypt_perl') { } |
|
211
|
0 |
16 |
if ($engine eq 'crypt_pk') { } |
|
|
16 |
0 |
elsif ($engine eq 'crypt_perl') { } |
|
233
|
0 |
24 |
if ($engine eq 'crypt_openssl_rsa') { } |
|
|
0 |
24 |
elsif ($engine eq 'crypt_pk') { } |
|
|
24 |
0 |
elsif ($engine eq 'crypt_perl') { } |
|
257
|
0 |
1 |
if ($engine eq 'crypt_openssl_rsa') { } |
|
|
0 |
1 |
elsif ($engine eq 'crypt_pk') { } |
|
|
1 |
0 |
elsif ($engine eq 'crypt_perl') { } |