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   510 use strict;
  1         3  
  1         31  
4 1     1   6 use warnings;
  1         2  
  1         31  
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   7 use parent qw( Crypt::Perl::X509::Extension );
  1         2  
  1         10  
23              
24 1     1   73 use constant OID => '1.3.6.1.5.5.7.48.1.5';
  1         3  
  1         58  
25              
26 1     1   6 use constant CRITICAL => 0;
  1         3  
  1         53  
27              
28 1     1   6 use constant ASN1 => <
  1         2  
  1         126  
29             noCheck ::= NULL
30             END
31              
32             sub new {
33 6     6 0 26 my ($class) = @_;
34              
35 6         14 my $self;
36              
37 6         50 return bless \$self, $class;
38             }
39              
40             sub _encode_params {
41 6     6   19 my ($self) = @_;
42              
43 6         19 return;
44             }
45              
46             1;