| line |
true |
false |
branch |
|
19
|
2 |
2 |
$param{'Content'} =~ /DSA PRIVATE KEY/ ? : |
|
32
|
0 |
2 |
unless $pkey |
|
49
|
0 |
2 |
unless $pkey |
|
52
|
0 |
2 |
unless my $num = $asn->decode($pkey->{'pub_key'}[0]) |
|
66
|
2 |
1 |
$key->priv_key ? : |
|
82
|
0 |
2 |
unless my $buf = $pem->encode("Content", $pkey, "Password", $param{'Password'}, "Name", "DSA PRIVATE KEY", "Macro", "DSAPrivateKey") |
|
94
|
0 |
1 |
unless my $str = $asn->encode($key->pub_key . '') |
|
109
|
0 |
1 |
unless my $buf = $pem->encode("Content", $pkey, "Password", $param{'Password'}, "Name", "PUBLIC KEY", "Macro", "DSAPublicKey") |
|
117
|
5 |
2 |
unless (defined $key->{'__pem'}) |