File Coverage

lib/Crypt/Perl/X509/Extension/policyMappings.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	1	2	50.0
condition	4	6	66.6
subroutine	7	7	100.0
pod	0	1	0.0
total	41	45	91.1

package Crypt::Perl::X509::Extension::policyMappings;

use strict;
use warnings;

=encoding utf-8

=head1 NAME

Crypt::Perl::X509::Extension::policyMappings - X.509 policyMappings extension

=head1 SEE ALSO

L

=cut

use parent qw( Crypt::Perl::X509::Extension );

use constant {
    OID => '2.5.29.33',
    OID_anyPolicy => '2.5.29.32.0',
    CRITICAL => 1,
};

use constant ASN1 => <
    policyMappings ::= SEQUENCE OF SEQUENCE {
        issuerDomainPolicy  OBJECT IDENTIFIER,
        subjectDomainPolicy OBJECT IDENTIFIER
    }
END

sub new {
    my ($class, @mappings) = @_;

    my @self;

    for my $m_hr (@mappings) {
        my %cur;

        for my $k ( qw( issuer subject ) ) {
            next if !defined $m_hr->{$k};

            my $oid = $class->can("OID_$m_hr->{$k}");
            $oid &&= $oid->();
            $oid ||= $m_hr->{$k};

            $cur{"${k}DomainPolicy"} = $oid;
        }

        push @self, \%cur;
    }

    return bless \@self, $class;
}

sub _encode_params {
    my ($self) = @_;

    return [ @$self ];
}

1;