File Coverage

lib/Crypt/Perl/X509/Extension/issuerAltName.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 24 24 100.0


line stmt bran cond sub pod time code
1             package Crypt::Perl::X509::Extension::issuerAltName;
2              
3 1     1   442 use strict;
  1         3  
  1         27  
4 1     1   5 use warnings;
  1         2  
  1         30  
5              
6             =encoding utf-8
7              
8             =head1 NAME
9              
10             Crypt::Perl::X509::Extension::issuerAltName - X.509 issuerAltName extension
11              
12             =head1 SYNOPSIS
13              
14             my $san = Crypt::Perl::X509::Extension::issuerAltName->new(
15             [ dNSName => 'foo.com' ],
16             [ dNSName => 'bar.com' ],
17             [ rfc822Name => 'haha@tld.com' ],
18             );
19              
20             =head1 SEE ALSO
21              
22             =cut
23              
24 1         4 use parent qw(
25             Crypt::Perl::X509::Extension
26             Crypt::Perl::X509::GeneralNames
27 1     1   5 );
  1         2  
28              
29 1     1   35 use Crypt::Perl::X509::GeneralNames ();
  1         2  
  1         16  
30              
31 1     1   3 use constant OID => '2.5.29.18';
  1         2  
  1         54  
32              
33 1     1   5 use constant ASN1 => Crypt::Perl::X509::GeneralNames::ASN1() . <
  1         4  
  1         44  
34             issuerAltName ::= GeneralNames
35             END
36              
37             1;