| line |
true |
false |
branch |
|
128
|
0 |
6 |
if (@missing) |
|
137
|
6 |
0 |
if ($opts{'issuer'}) { } |
|
172
|
0 |
6 |
unless $digest_algorithm =~ /([0-9]+)\z/ |
|
175
|
3 |
3 |
if ($signer_key->isa('Crypt::Perl::ECDSA::PrivateKey')) { } |
|
|
3 |
0 |
elsif ($signer_key->isa('Crypt::Perl::RSA::PrivateKey')) { } |
|
185
|
0 |
3 |
unless (my $sign_cr = $signer_key->can("sign_RS$digest_length")) |
|
211
|
0 |
6 |
unless ($self->{'_signed'}) |
|
221
|
0 |
6 |
unless ($digest_algorithm =~ /\Asha(224|256|384|512)\z/) |
|
230
|
3 |
3 |
if ($self->{'_key'}->isa('Crypt::Perl::ECDSA::PublicKey')) { } |
|
|
3 |
0 |
elsif ($self->{'_key'}->isa('Crypt::Perl::RSA::PublicKey')) { } |
|
245
|
6 |
0 |
if ($self->{'_extensions'}) |
|
269
|
6 |
0 |
$extns_bin ? : |