File Coverage

lib/Crypt/Perl/X509/Extension/noCheck.pm
Criterion Covered Total %
statement 23 23 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod 0 1 0.0
total 31 32 96.8


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