Branch Coverage

lib/Crypt/Perl/ECDSA/NIST.pm
Criterion Covered Total %
branch 7 10 70.0


line true false branch
17 0 5 unless length $curve_name
19 0 5 unless (my $cr = "Crypt::Perl::ECDSA::NIST"->can("JWK_CURVE_$curve_name"))
29 0 4 unless length $nist_name
32 4 7 unless $node =~ /\AJWK_CURVE_(.+)/
35 4 3 if $nist eq $nist_name