File Coverage

blib/lib/Net/ACME2/HTTP/Response.pm

Criterion	Covered	Total	%
statement	18	20	90.0
branch			n/a
condition	1	3	33.3
subroutine	6	7	85.7
pod	0	2	0.0
total	25	32	78.1

package Net::ACME2::HTTP::Response;

use strict;
use warnings;

use parent qw( HTTP::Tiny::UA::Response );

use JSON          ();

use Net::ACME2::X ();

sub die_because_unexpected {
    my ($self) = @_;

    die Net::ACME2::X->create(
        'UnexpectedResponse',
        {
            uri     => $self->url(),
            status  => $self->status(),
            reason  => $self->reason(),
            headers => $self->headers(),
        },
    );
}

#Useful for everything but certificate issuance, apparently?
sub content_struct {
    my ($self) = @_;

    my $json = ($self->{'_json'} ||= JSON->new()->allow_nonref());

    return $json->decode( $self->content() );
}

1;