File Coverage

blib/lib/Net/ACME/Registration.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 21 22 95.4


line stmt bran cond sub pod time code
1             package Net::ACME::Registration;
2              
3 8     8   119714 use strict;
  8         24  
  8         250  
4 8     8   42 use warnings;
  8         17  
  8         250  
5              
6 8     8   44 use parent qw( Net::ACME::AccessorBase );
  8         14  
  8         47  
7              
8             #Expand this as needed.
9 8         1133 use constant _ACCESSORS => qw(
10             agreement
11             key
12             terms_of_service
13             uri
14 8     8   532 );
  8         16  
15              
16             sub new {
17 2     2 0 2153 my ( $class, %opts ) = @_;
18              
19             #Silently (?) reject anything unfamiliar.
20 2         9 %opts = map { ( $_ => $opts{$_} ) } _ACCESSORS();
  8         25  
21              
22 2         26 return $class->SUPER::new( %opts );
23             }
24              
25             1;