File Coverage

blib/lib/Net/ACME/X/Protocol.pm

Criterion	Covered	Total	%
statement	11	11	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	15	16	93.7

package Net::ACME::X::Protocol;

use strict;
use warnings;

use parent qw( Net::ACME::X::HashBase );

#named args required:
#
#   url
#   status
#   reason
#   type
#   detail
#
#optional:
#   headers
#
sub new {
    my ( $self, $args_hr ) = @_;

    return $self->SUPER::new(
        "The ACME function “$args_hr->{'url'}” indicated an error: “$args_hr->{'detail'}” ($args_hr->{'status'}, “$args_hr->{'reason'}”, $args_hr->{'type'}).",
        $args_hr,
    );
}

1;