| line |
true |
false |
branch |
|
18
|
2 |
2 |
$param{'Content'} =~ /DSA PRIVATE KEY/ ? : |
|
31
|
0 |
2 |
unless $pkey |
|
48
|
0 |
2 |
unless $pkey |
|
51
|
0 |
2 |
unless my $num = $asn->decode($pkey->{'pub_key'}[0]) |
|
65
|
2 |
1 |
$key->priv_key ? : |
|
81
|
0 |
2 |
unless my $buf = $pem->encode("Content", $pkey, "Password", $param{'Password'}, "Name", "DSA PRIVATE KEY", "Macro", "DSAPrivateKey") |
|
93
|
0 |
1 |
unless my $str = $asn->encode($key->pub_key . '') |
|
108
|
0 |
1 |
unless my $buf = $pem->encode("Content", $pkey, "Password", $param{'Password'}, "Name", "PUBLIC KEY", "Macro", "DSAPublicKey") |
|
116
|
5 |
2 |
unless (defined $key->{'__pem'}) |