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