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