File Coverage

lib/Crypt/Perl/X509/Extension/inhibitAnyPolicy.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::inhibitAnyPolicy;

use strict;
use warnings;

=encoding utf-8

=head1 NAME

Crypt::Perl::X509::Extension::inhibitAnyPolicy

=head1 SYNOPSIS

    my $usage_obj = Crypt::Perl::X509::Extension::inhibitAnyPolicy->new( 5 );

=head1 SEE ALSO

L

=cut

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

use constant OID => '2.5.29.54';

use constant CRITICAL => 1;

use constant ASN1 => <
    SkipCerts ::= INTEGER

    inhibitAnyPolicy ::= SkipCerts
END

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

    return bless \$skip_int, $class;
}

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

    return $$self;
}

1;