File Coverage

blib/lib/Net/ACME/X/HTTP/Network.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::HTTP::Network;
2              
3 2     2   16 use strict;
  2         5  
  2         59  
4 2     2   10 use warnings;
  2         3  
  2         55  
5              
6 2     2   9 use parent qw( Net::ACME::X::HashBase );
  2         5  
  2         8  
7              
8             #named args required:
9             #
10             # error
11             # method
12             # url
13             #
14             sub new {
15 2     2 0 6 my ( $self, $args_hr ) = @_;
16              
17 2         22 return $self->SUPER::new(
18             "The system failed to send an HTTP “$args_hr->{'method'}” request to “$args_hr->{'url'}” because of an error: $args_hr->{'error'}",
19             $args_hr,
20             );
21             }
22              
23             1;