File Coverage

blib/lib/Net/ACME2/JWTMaker/ECC.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1             package Net::ACME2::JWTMaker::ECC;
2              
3 2     2   1591 use strict;
  2         5  
  2         58  
4 2     2   10 use warnings;
  2         2  
  2         65  
5              
6 2     2   9 use parent qw( Net::ACME2::JWTMaker );
  2         4  
  2         14  
7              
8             sub _ALG {
9 16     16   51 my ($self) = @_;
10              
11 16         97 return $self->{'key'}->get_jwa_alg();
12             }
13              
14             sub _get_signer {
15 16     16   56 my ($self) = @_;
16              
17             return sub {
18 16     16   101 return $self->{'key'}->sign_jwa(@_);
19 16         98 };
20             }
21              
22             1;