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   18 use strict;
  5         6  
  5         168  
4 5     5   18 use warnings;
  5         7  
  5         140  
5              
6 5     5   18 use parent qw( Net::ACME::X::HashBase );
  5         6  
  5         28  
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 9 my ( $self, $args_hr ) = @_;
19              
20 5         42 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;