File Coverage

lib/Crypt/Perl/X509/Extension/subjectKeyIdentifier.pm
Criterion Covered Total %
statement 23 24 95.8
branch 1 2 50.0
condition n/a
subroutine 8 8 100.0
pod 0 1 0.0
total 32 35 91.4


line stmt bran cond sub pod time code
1             package Crypt::Perl::X509::Extension::subjectKeyIdentifier;
2              
3 1     1   547 use strict;
  1         3  
  1         35  
4 1     1   4 use warnings;
  1         2  
  1         28  
5              
6             =encoding utf-8
7              
8             =head1 NAME
9              
10             Crypt::Perl::X509::Extension::keyUsage
11              
12             =head1 SYNOPSIS
13              
14             my $usage_obj = Crypt::Perl::X509::Extension::subjectKeyIdentifier->new(
15             $subj_key_id #octet string
16             );
17              
18             =head1 SEE ALSO
19              
20             L
21              
22             =cut
23              
24 1     1   4 use parent qw( Crypt::Perl::X509::Extension );
  1         2  
  1         5  
25              
26 1     1   45 use Crypt::Perl::X ();
  1         117  
  1         30  
27              
28             use constant {
29 1         59 OID => '2.5.29.14',
30             CRITICAL => 0,
31 1     1   5 };
  1         1  
32              
33 1     1   5 use constant ASN1 => <
  1         2  
  1         122  
34             subjectKeyIdentifier ::= OCTET STRING
35             END
36              
37             sub new {
38 6     6 0 27 my ($class, $octet_str) = @_;
39              
40 6 50       25 if (!length $octet_str) {
41 0         0 die Crypt::Perl::X::create('Generic', 'Need data!');
42             }
43              
44 6         47 return bless \$octet_str, $class;
45             }
46              
47             sub _encode_params {
48 6     6   22 my ($self) = @_;
49              
50 6         31 return $$self;
51             }
52              
53             1;