File Coverage

blib/lib/Net/ACME/X/UnexpectedResponse.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


line stmt bran cond sub pod time code
1             package Net::ACME::X::UnexpectedResponse;
2              
3 5     5   37 use strict;
  5         11  
  5         168  
4 5     5   25 use warnings;
  5         11  
  5         168  
5              
6 5     5   26 use parent qw( Net::ACME::X::HashBase );
  5         10  
  5         33  
7              
8             #named args required:
9             #
10             # uri
11             # status
12             # reason
13             #
14             #optional:
15             # headers
16             #
17             sub new {
18 5     5 0 16 my ( $self, $args_hr ) = @_;
19              
20 5         49 return $self->SUPER::new(
21             "The [asis,ACME] function “$args_hr->{'uri'}” returned an unexpected status: “$args_hr->{'status'}” ($args_hr->{'reason'}).",
22             $args_hr,
23             );
24             }
25              
26             1;