File Coverage

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

Criterion	Covered	Total	%
statement	22	22	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod	0	1	0.0
total	30	31	96.7

package Crypt::Perl::X509::Extension::policyConstraints;

use strict;
use warnings;

=encoding utf-8

=head1 NAME

Crypt::Perl::X509::Extension::policyConstraints

=head1 SYNOPSIS

    my $usage_obj = Crypt::Perl::X509::Extension::policyConstraints->new(
        requireExplicitPolicy => 4,
        inhibitPolicyMapping => 6,
    );

=head1 SEE ALSO

L

=cut

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

use constant OID => '2.5.29.36';

use constant CRITICAL => 1;

use constant ASN1 => <
    SkipCerts ::= INTEGER

    policyConstraints ::= SEQUENCE {
        requireExplicitPolicy           [0] SkipCerts OPTIONAL,
        inhibitPolicyMapping            [1] SkipCerts OPTIONAL
    }
END

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

    return bless \%opts, $class;
}

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

    return { %$self };
}

1;