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 2     2   8 use strict;
  2         2  
  2         68  
4 2     2   5 use warnings;
  2         3  
  2         44  
5              
6 2     2   6 use parent qw( Net::ACME::X::HashBase );
  2         2  
  2         11  
7              
8             #named args required:
9             #
10             # uri
11             # status
12             # reason
13             #
14             #optional:
15             # headers
16             #
17             sub new {
18 2     2 0 4 my ( $self, $args_hr ) = @_;
19              
20 2         15 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;