| line |
true |
false |
branch |
|
30
|
17 |
29 |
if ($prms{'Data'}) { } |
|
|
29 |
0 |
elsif (defined $prms{'File'}) { } |
|
|
0 |
0 |
elsif ($prms{'Cork'}) { } |
|
35
|
2 |
27 |
unless open my $file, "<", $prms{'File'} |
|
39
|
54 |
327 |
if $line =~ /^---/ |
|
75
|
0 |
38 |
unless (eval {
do {
local $SIG{'__DIE__'};
$cork = "Crypt::OpenSSL::RSA"->new_private_key($pkcs);
1
}
}) |
|
80
|
0 |
38 |
unless $cork |
|
106
|
0 |
2 |
unless $cork->import_key(\$pem) |
|
114
|
0 |
2 |
unless (eval {
do {
local $SIG{'__DIE__'};
$cork = "Crypt::PK::Ed25519"->new;
my $pem = "-----BEGIN PRIVATE KEY-----\n";
$pem .= $self->data;
$pem .= "\n";
$pem .= "-----END PRIVATE KEY-----\n";
die "failed to load Ed25519 private key" unless $cork->import_key(\$pem);
1
}
}) |
|
119
|
0 |
2 |
unless $cork |
|
129
|
0 |
40 |
unless $self->data |
|
132
|
38 |
2 |
if $self->{'TYPE'} eq "rsa" |
|
133
|
2 |
0 |
if $self->{'TYPE'} eq "ed25519" |
|
170
|
0 |
2 |
unless ($ed) |
|
171
|
0 |
0 |
$@ ne '' ? : |
|
181
|
58 |
2 |
if $self->{'TYPE'} eq "rsa" |
|
182
|
2 |
0 |
if $self->{'TYPE'} eq "ed25519" |