File Coverage

blib/lib/Crypt/Bear/X509/Certificate.pm
Criterion Covered Total %
statement 12 20 60.0
branch 0 4 0.0
condition n/a
subroutine 4 5 80.0
pod 1 1 100.0
total 17 30 56.6


line stmt bran cond sub pod time code
1             package Crypt::Bear::X509::Certificate;
2             $Crypt::Bear::X509::Certificate::VERSION = '0.004';
3 7     7   178428 use strict;
  7         15  
  7         244  
4 7     7   24 use warnings;
  7         10  
  7         273  
5              
6 7     7   392 use Crypt::Bear;
  7         11  
  7         127  
7 7     7   1362 use Crypt::Bear::PEM;
  7         16  
  7         1349  
8              
9             sub load {
10 0     0 1   my ($class, $filename) = @_;
11              
12 0 0         open my $fh, '<:crlf', $filename or die "Could not open certificate $filename: $!";
13 0           my $raw = do { local $/; <$fh> };
  0            
  0            
14 0           my ($banner, $content) = Crypt::Bear::PEM::pem_decode($raw);
15 0 0         die "File $filename does not contain a certificate" unless $banner =~ /CERTIFICATE/;
16              
17 0           return $class->new($content);
18             }
19              
20             1;
21              
22             # ABSTRACT: A X509 certificate in BearSSL
23              
24             __END__