File Coverage

blib/lib/Net/ACME2/JWTMaker/RSA.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	22	22	100.0

package Net::ACME2::JWTMaker::RSA;

use strict;
use warnings;

use parent qw( Net::ACME2::JWTMaker );

use constant _ALG => 'RS256';

#Based on Crypt::JWT::encode_jwt(), but focused on this particular
#protocol’s needs. Note that UTF-8 might get mangled in here,
#but that’s not a problem since ACME shouldn’t require sending raw UTF-8.
#(Maybe with registration??)
sub _get_signer {
    my ( $self ) = @_;

    my $method_name = 'sign_' . _ALG();

    return sub {
        return $self->{'key'}->$method_name(@_);
    };
}

1;