| line |
true |
false |
branch |
|
101
|
0 |
28 |
if ($params{'seed'}) |
|
162
|
0 |
0 |
unless (my $getter_cr = 'Crypt::Perl::ECDSA::KeyBase'->can("JWA_CURVE_ALG_$name")) |
|
198
|
0 |
6 |
unless (my $getter_cr = $self->can("JWA_DIGEST_$name")) |
|
219
|
251 |
0 |
if ($r->is_positive and $s->is_positive) |
|
237
|
251 |
0 |
if ($r->blt($n) and $s->blt($n)) |
|
247
|
243 |
8 |
if $v->beq($r) |
|
293
|
13 |
4 |
if ($params{'seed'} and $curve_hr->{'seed'}) |
|
300
|
4 |
255 |
if ($params{'compressed'}) |
|
324
|
7 |
267 |
$params{'compressed'} ? : |
|
344
|
258 |
315 |
if (my $params = $params_struct->{'ecParameters'}) { } |