| line |
true |
false |
branch |
|
101
|
0 |
29 |
if ($params{'seed'}) |
|
162
|
0 |
0 |
unless (my $getter_cr = "Crypt::Perl::ECDSA::KeyBase"->can("JWA_CURVE_ALG_$name")) |
|
198
|
0 |
9 |
unless (my $getter_cr = $self->can("JWA_DIGEST_$name")) |
|
225
|
467 |
0 |
if ($r->is_positive and $s->is_positive) |
|
243
|
465 |
2 |
if ($r->blt($n) and $s->blt($n)) |
|
253
|
457 |
8 |
if $v->beq($r) |
|
299
|
13 |
4 |
if ($params{'seed'} and $curve_hr->{'seed'}) |
|
306
|
4 |
423 |
if ($params{'compressed'}) |
|
330
|
7 |
436 |
$params{'compressed'} ? : |
|
350
|
258 |
329 |
if (my $params = $params_struct->{'ecParameters'}) { } |