| line |
true |
false |
branch |
| 15 |
2 |
2 |
$param{'Content'} =~ /DSA PRIVATE KEY/ ? : |
| 28 |
0 |
2 |
unless $pkey |
| 45 |
0 |
2 |
unless $pkey |
| 48 |
0 |
2 |
unless my $num = $asn->decode($$pkey{'pub_key'}[0]) |
| 62 |
2 |
1 |
$key->priv_key ? : |
| 75 |
0 |
2 |
unless my $buf = $pem->encode('Content', $pkey, 'Password', $param{'Password'}, 'Name', 'DSA PRIVATE KEY', 'Macro', 'DSAPrivateKey') |
| 90 |
0 |
1 |
unless my $str = $asn->encode($key->pub_key . '') |
| 102 |
0 |
1 |
unless my $buf = $pem->encode('Content', $pkey, 'Password', $param{'Password'}, 'Name', 'PUBLIC KEY', 'Macro', 'DSAPublicKey') |
| 113 |
5 |
2 |
unless (defined $$key{'__pem'}) |