File Coverage

blib/lib/Net/ACME/Challenge/Pending.pm

Criterion	Covered	Total	%
statement	24	26	92.3
branch			n/a
condition			n/a
subroutine	8	9	88.8
pod	1	5	20.0
total	33	40	82.5

package Net::ACME::Challenge::Pending;

=encoding utf-8

=head1 NAME

Net::ACME::Challenge::Pending - base class for an unhandled challenge

=head1 DESCRIPTION

This base class encapsulates behavior to respond to unhandled challenges.
To work with challenges that have been handled (successfully or not),
see C.

Note that HTTP requests have some “helper” logic in the subclass
C.

=head1 METHODS

=head2 $OBJ->make_key_authz( JWK_HR )

JWK_HR is a hashref representation of the ACME registration key’s public JWK.

Returns a string to use as key authorization for the challenge.

=cut

use strict;
use warnings;

use Net::ACME::Crypt ();
use Net::ACME::Utils ();

sub new {
    my ( $class, %opts ) = @_;

    Net::ACME::Utils::verify_token( $opts{'token'} );

    return bless { map { ( "_$_" => $opts{$_} ) } qw(type token uri) }, $class;
}

sub token {
    my ($self) = @_;
    return $self->{'_token'};
}

sub uri {
    my ($self) = @_;
    return $self->{'_uri'};
}

sub type {
    my ($self) = @_;
    return $self->{'_type'};
}

sub make_key_authz {
    my ( $self, $pub_jwk_hr ) = @_;

    my $eval_err = $@;

    my $jwk_thumbprint = Net::ACME::Crypt::get_jwk_thumbprint( $pub_jwk_hr );

    return "$self->{'_token'}.$jwk_thumbprint";
}

1;