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 2     2   13 use strict;
  2         5  
  2         62  
4 2     2   9 use warnings;
  2         6  
  2         65  
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 2     2   11 use parent qw( Net::ACME2::AccessorBase );
  2         5  
  2         11  
19              
20 2     2   652 use Call::Context ();
  2         310  
  2         72  
21              
22 2         448 use constant _ACCESSORS => (
23             'id',
24             'status',
25             'expires',
26             'notBefore',
27             'notAfter',
28             'certificate',
29             'finalize',
30 2     2   12 );
  2         5  
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;