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 1     1   3 use strict;
  1         2  
  1         22  
4 1     1   2 use warnings;
  1         1  
  1         21  
5              
6 1     1   3 use parent qw( Net::ACME::X::HashBase );
  1         1  
  1         3  
7              
8             #named args required:
9             #
10             # error
11             # method
12             # url
13             #
14             sub new {
15 1     1 0 2 my ( $self, $args_hr ) = @_;
16              
17 1         7 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;