File Coverage

blib/lib/Crypt/Bear/SSL/PrivateCertificate.pm
Criterion Covered Total %
statement 19 19 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 26 26 100.0


line stmt bran cond sub pod time code
1             package Crypt::Bear::SSL::PrivateCertificate;
2             $Crypt::Bear::SSL::PrivateCertificate::VERSION = '0.004';
3 2     2   142242 use strict;
  2         4  
  2         60  
4 2     2   7 use warnings;
  2         3  
  2         89  
5              
6 2     2   329 use Crypt::Bear;
  2         4  
  2         45  
7              
8 2     2   808 use Crypt::Bear::X509::Certificate::Chain;
  2         5  
  2         48  
9 2     2   678 use Crypt::Bear::X509::PrivateKey;
  2         4  
  2         187  
10              
11             1;
12              
13             sub load {
14 1     1 1 18 my ($class, $chain_file, $key_file, @extra) = @_;
15 1         10 my $chain = Crypt::Bear::X509::Certificate::Chain->load($chain_file);
16 1         13 my $key = Crypt::Bear::X509::PrivateKey->load($key_file);
17              
18 1         19 return $class->new($chain, $key, @extra);
19             }
20              
21             1;
22              
23             # ABSTRACT: a Certificate Chain and Private key combination for BearSSL
24              
25             __END__