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


line stmt bran cond sub pod time code
1             package Crypt::Perl::X509::Extension::inhibitAnyPolicy;
2              
3 1     1   400 use strict;
  1         3  
  1         23  
4 1     1   4 use warnings;
  1         2  
  1         23  
5              
6             =encoding utf-8
7              
8             =head1 NAME
9              
10             Crypt::Perl::X509::Extension::inhibitAnyPolicy
11              
12             =head1 SYNOPSIS
13              
14             my $usage_obj = Crypt::Perl::X509::Extension::inhibitAnyPolicy->new( 5 );
15              
16             =head1 SEE ALSO
17              
18             L
19              
20             =cut
21              
22 1     1   3 use parent qw( Crypt::Perl::X509::Extension );
  1         2  
  1         4  
23              
24 1     1   43 use constant OID => '2.5.29.54';
  1         1  
  1         38  
25              
26 1     1   4 use constant CRITICAL => 1;
  1         2  
  1         47  
27              
28 1     1   6 use constant ASN1 => <
  1         2  
  1         101  
29             SkipCerts ::= INTEGER
30              
31             inhibitAnyPolicy ::= SkipCerts
32             END
33              
34             sub new {
35 6     6 0 19 my ($class, $skip_int) = @_;
36              
37 6         22 return bless \$skip_int, $class;
38             }
39              
40             sub _encode_params {
41 6     6   13 my ($self) = @_;
42              
43 6         21 return $$self;
44             }
45              
46             1;