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


line stmt bran cond sub pod time code
1             package Net::ACME::X::Protocol;
2              
3 2     2   8 use strict;
  2         2  
  2         47  
4 2     2   6 use warnings;
  2         2  
  2         44  
5              
6 2     2   5 use parent qw( Net::ACME::X::HashBase );
  2         1  
  2         8  
7              
8             #named args required:
9             #
10             # url
11             # status
12             # reason
13             # type
14             # detail
15             #
16             #optional:
17             # headers
18             #
19             sub new {
20 3     3 0 6 my ( $self, $args_hr ) = @_;
21              
22 3         25 return $self->SUPER::new(
23             "The ACME function “$args_hr->{'url'}” indicated an error: “$args_hr->{'detail'}” ($args_hr->{'status'}, “$args_hr->{'reason'}”, $args_hr->{'type'}).",
24             $args_hr,
25             );
26             }
27              
28             1;