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