Branch Coverage

lib/Crypt/Perl/ECDSA/KeyBase.pm
Criterion Covered Total %
branch 14 20 70.0


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'}) { }