File Coverage

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

Criterion	Covered	Total	%
statement	18	18	100.0
branch	2	2	100.0
condition	5	5	100.0
subroutine	5	5	100.0
pod	0	1	0.0
total	30	31	96.7

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

=encoding utf-8

=head1 NAME

Net::ACME::X::HTTP::Protocol

=head1 DESCRIPTION

This exception class means that an error occurred with an HTTP
request, and the problem had specifically to do with something
that happened on the remote server, not just a general connection
problem. For example, this class would be suitable for use when
you get a 500 Internal Server Error or a 404 Not Found, but it
would not be suitable for use if you get a Connection Refused
error when trying to connect.

=cut

use strict;
use warnings;

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

# In a normal HTTP response, we don't necessarily know if the body is going
# to be meaningful for display, so only include the first chunk.
#
#(accessed from tests)
use constant BODY_DISPLAY_SIZE => 1_024;

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

    my $content = $args_hr->{'content'};
    if ( defined($content) && length($content) > BODY_DISPLAY_SIZE() ) {
        substr( $content, BODY_DISPLAY_SIZE() ) = '…';
    }

    $content ||= q<>;

    return $self->SUPER::new(
        "The response to the HTTP “$args_hr->{'method'}” request from “$args_hr->{'url'}” indicated an error ($args_hr->{'status'}, $args_hr->{'reason'}): “$content”",
        $args_hr,
    );
}

1;