File Coverage

blib/lib/Net/ACME2/JWTMaker/RSA.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 21 21 100.0


line stmt bran cond sub pod time code
1             package Net::ACME2::JWTMaker::RSA;
2              
3 1     1   462 use strict;
  1         2  
  1         21  
4 1     1   4 use warnings;
  1         2  
  1         21  
5              
6 1     1   4 use parent qw( Net::ACME2::JWTMaker );
  1         1  
  1         4  
7              
8 1     1   42 use constant _ALG => 'RS256';
  1         2  
  1         93  
9              
10             #Based on Crypt::JWT::encode_jwt(), but focused on this particular
11             #protocol’s needs. Note that UTF-8 might get mangled in here,
12             #but that’s not a problem since ACME shouldn’t require sending raw UTF-8.
13             #(Maybe with registration??)
14             sub _get_signer {
15 2     2   4 my ( $self ) = @_;
16              
17             return sub {
18 2     2   12 return $self->{'key'}->can('sign_' . _ALG())->($self->{'key'}, @_);
19 2         8 };
20             }
21              
22             1;