File Coverage

lib/Crypt/Perl/ECDSA/NIST.pm
Criterion Covered Total %
statement 31 33 93.9
branch 7 10 70.0
condition n/a
subroutine 9 9 100.0
pod 0 2 0.0
total 47 54 87.0


line stmt bran cond sub pod time code
1             package Crypt::Perl::ECDSA::NIST;
2              
3 7     7   43 use strict;
  7         13  
  7         168  
4 7     7   34 use warnings;
  7         12  
  7         136  
5              
6 7     7   6305 use Symbol::Get ();
  7         5879  
  7         110  
7              
8 7     7   35 use Crypt::Perl::X ();
  7         12  
  7         102  
9              
10 7     7   26 use constant JWK_CURVE_prime256v1 => 'P-256';
  7         14  
  7         308  
11 7     7   31 use constant JWK_CURVE_secp384r1 => 'P-384';
  7         13  
  7         244  
12 7     7   30 use constant JWK_CURVE_secp521r1 => 'P-521';
  7         10  
  7         1548  
13              
14             sub get_nist_for_curve_name {
15 5     5 0 13 my ($curve_name) = @_;
16              
17 5 50       16 die Crypt::Perl::X::create('Generic', 'Need curve name!') if !length $curve_name;
18              
19 5 50       47 my $cr = __PACKAGE__->can("JWK_CURVE_$curve_name") or do {
20 0         0 die Crypt::Perl::X::create('ECDSA::NoCurveForName', { name => $curve_name });
21             };
22              
23 5         40 return $cr->();
24             }
25              
26             sub get_curve_name_for_nist {
27 4     4 0 13 my ($nist_name) = @_;
28              
29 4 50       11 die Crypt::Perl::X::create('Generic', 'Need NIST curve name!') if !length $nist_name;
30              
31 4         14 for my $node ( Symbol::Get::get_names() ) {
32 13 100       306 next if $node !~ m<\AJWK_CURVE_(.+)>;
33              
34 9         58 my $nist = __PACKAGE__->can($node)->();
35 9 100       39 return $1 if $nist eq $nist_name;
36             }
37              
38 0           die Crypt::Perl::X::create('ECDSA::NoCurveForNISTName', { name => $nist_name });
39             }
40              
41             1;