File Coverage

blib/lib/Net/ACME2/Order.pm
Criterion Covered Total %
statement 15 28 53.5
branch n/a
condition n/a
subroutine 5 8 62.5
pod 2 3 66.6
total 22 39 56.4


line stmt bran cond sub pod time code
1             package Net::ACME2::Order;
2              
3 3     3   19 use strict;
  3         6  
  3         77  
4 3     3   14 use warnings;
  3         4  
  3         78  
5              
6             =encoding utf-8
7              
8             =head1 NAME
9              
10             Net::ACME2::Order
11              
12             =head1 DESCRIPTION
13              
14             The ACME Order object.
15              
16             =cut
17              
18 3     3   13 use parent qw( Net::ACME2::AccessorBase );
  3         4  
  3         13  
19              
20 3     3   171 use Call::Context ();
  3         5  
  3         110  
21              
22 3         722 use constant _ACCESSORS => (
23             'id',
24             'status',
25             'expires',
26             'notBefore',
27             'notAfter',
28             'certificate',
29             'finalize',
30 3     3   15 );
  3         4  
31              
32             =head1 ACCESSORS
33              
34             These provide text strings as defined in the ACME specification:
35              
36             =over
37              
38             =item * B
39              
40             =item * B
41              
42             =item * B
43              
44             =item * B
45              
46             =item * B
47              
48             =item * B
49              
50             =item * B
51              
52             =back
53              
54             =head2 I->authorizations()
55              
56             The URLs for the order’s authorizations.
57              
58             =cut
59              
60             sub authorizations {
61 0     0 1   my ($self) = @_;
62              
63 0           Call::Context::must_be_list();
64              
65 0           return @{ $self->{'_authorizations'} };
  0            
66             }
67              
68             =head2 I->identifiers()
69              
70             The order’s identifiers, as a list of hash references.
71             The content matches the ACME specification.
72              
73             =cut
74              
75             sub identifiers {
76 0     0 1   my ($self) = @_;
77              
78 0           Call::Context::must_be_list();
79              
80 0           return map { { %$_ } } @{ $self->{'_identifiers'} };
  0            
  0            
81             }
82              
83             #Only to be called from ACME2.pm?
84              
85             sub update {
86 0     0 0   my ($self, $new_hr) = @_;
87              
88 0           for my $name ( 'status', 'certificate' ) {
89 0           $self->{"_$name"} = $new_hr->{$name};
90             }
91              
92 0           return $self;
93             }
94              
95             1;