File Coverage

lib/Crypt/Perl/X509/Extension/cRLDistributionPoints.pm
Criterion Covered Total %
statement 49 51 96.0
branch 8 10 80.0
condition n/a
subroutine 10 10 100.0
pod 0 1 0.0
total 67 72 93.0


line stmt bran cond sub pod time code
1             package Crypt::Perl::X509::Extension::cRLDistributionPoints;
2              
3 1     1   557 use strict;
  1         2  
  1         32  
4 1     1   6 use warnings;
  1         3  
  1         30  
5              
6             =encoding utf-8
7              
8             =head1 NAME
9              
10             Crypt::Perl::X509::Extension::cRLDistributionPoints
11              
12             =head1 SEE ALSO
13              
14             L
15              
16             =cut
17              
18 1     1   6 use parent qw( Crypt::Perl::X509::Extension );
  1         3  
  1         4  
19              
20 1     1   56 use Crypt::Perl::ASN1::BitString ();
  1         2  
  1         13  
21 1     1   5 use Crypt::Perl::X509::GeneralNames ();
  1         2  
  1         23  
22 1     1   6 use Crypt::Perl::X509::RelativeDistinguishedName ();
  1         3  
  1         40  
23              
24             use constant {
25 1         106 OID => '2.5.29.31',
26             CRITICAL => 0,
27 1     1   6 };
  1         2  
28              
29 1     1   8 use constant ASN1 => Crypt::Perl::X509::GeneralNames::ASN1() . <
  1         3  
  1         496  
30              
31             DistributionPointName ::= CHOICE {
32             fullName ANY, -- [0] GeneralNames
33             nameRelativeToCRLIssuer ANY -- [1] RelativeDistinguishedName
34             }
35              
36             DistributionPoint ::= SEQUENCE {
37             distributionPoint [0] DistributionPointName OPTIONAL,
38             reasons [1] BIT STRING OPTIONAL,
39             cRLIssuer ANY OPTIONAL -- [2] GeneralNames OPTIONAL
40             }
41              
42             cRLDistributionPoints ::= SEQUENCE OF DistributionPoint
43             END
44              
45             my @_ReasonFlags = qw(
46             unused
47             keyCompromise
48             cACompromise
49             affiliationChanged
50             superseded
51             cessationOfOperation
52             certificateHold
53             privilegeWithdrawn
54             aACompromise
55             );
56              
57             sub new {
58 12     12 0 53 my ($class, @points) = @_;
59              
60 12         27 my @self;
61              
62 12         36 for my $p (@points) {
63 24         166 my %pp = %$p;
64 24         81 push @self, \%pp;
65              
66 24 50       93 if ( $pp{'distributionPoint'} ) {
67 24         67 my $dp = $pp{'distributionPoint'};
68              
69 24 100       97 if ($dp->{'fullName'}) {
    50          
70 12         31 my $gns = Crypt::Perl::X509::GeneralNames->new( @{ $pp{'distributionPoint'}{'fullName'} } );
  12         87  
71              
72 12         54 $pp{'distributionPoint'} = {
73             fullName => $gns->encode(),
74             };
75              
76 12         1286 substr( $pp{'distributionPoint'}{'fullName'}, 0, 1, "\xa0" );
77             }
78             elsif ($dp->{'nameRelativeToCRLIssuer'}) {
79 12         32 my $rdn = Crypt::Perl::X509::RelativeDistinguishedName->new( @{ $dp->{'nameRelativeToCRLIssuer'} } );
  12         90  
80              
81 12         63 $pp{'distributionPoint'} = {
82             nameRelativeToCRLIssuer => $rdn->encode(),
83             };
84              
85 12         4141 substr( $pp{'distributionPoint'}{'nameRelativeToCRLIssuer'}, 0, 1, "\xa1" );
86             }
87             else {
88 0         0 my @keys = keys %$dp;
89 0         0 die Crypt::Perl::X::create('Generic', "Unrecognized “distributionPoint” hash! (@keys)");
90             }
91             }
92              
93 24 100       88 if ( $pp{'reasons'} ) {
94             $pp{'reasons'} = Crypt::Perl::ASN1::BitString::encode(
95             \@_ReasonFlags,
96 12         72 $pp{'reasons'},
97             );
98             }
99              
100 24 100       88 if ( $pp{'cRLIssuer'} ) {
101 12         49 $pp{'cRLIssuer'} = Crypt::Perl::X509::GeneralNames->new( @{ $pp{'cRLIssuer'} } )->encode();
  12         61  
102 12         1123 substr( $pp{'cRLIssuer'}, 0, 1, "\xa2" );
103             }
104             }
105              
106 12         93 return bless \@self, $class;
107             }
108              
109             sub _encode_params {
110 12     12   50 my ($self) = @_;
111              
112 12         71 return [ @$self ];
113             }
114              
115             1;