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 1     1   52021 use strict;
  1         1  
  1         22  
4 1     1   3 use warnings;
  1         1  
  1         21  
5              
6 1     1   3 use parent qw( Net::ACME::AccessorBase );
  1         1  
  1         3  
7              
8             #Expand this as needed.
9 1         89 use constant _ACCESSORS => qw(
10             agreement
11             key
12             terms_of_service
13             uri
14 1     1   35 );
  1         1  
15              
16             sub new {
17 1     1 0 694 my ( $class, %opts ) = @_;
18              
19             #Silently (?) reject anything unfamiliar.
20 1         3 %opts = map { ( $_ => $opts{$_} ) } _ACCESSORS();
  4         8  
21              
22 1         7 return $class->SUPER::new( %opts );
23             }
24              
25             1;