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 1     1   604 use strict;
  1         2  
  1         27  
4 1     1   3 use warnings;
  1         2  
  1         45  
5              
6 1     1   4 use parent qw( Net::ACME2::JWTMaker );
  1         2  
  1         7  
7              
8             sub _ALG {
9 8     8   16 my ($self) = @_;
10              
11 8         47 return $self->{'key'}->get_jwa_alg();
12             }
13              
14             sub _get_signer {
15 8     8   20 my ($self) = @_;
16              
17             return sub {
18 8     8   41 return $self->{'key'}->sign_jwa(@_);
19 8         34 };
20             }
21              
22             1;