File Coverage

blib/lib/Crypt/Bear/X509/Certificate/Chain.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	2	4	50.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	32	34	94.1

package Crypt::Bear::X509::Certificate::Chain;
$Crypt::Bear::X509::Certificate::Chain::VERSION = '0.004';
use strict;
use warnings;

use Crypt::Bear;
use Crypt::Bear::PEM;

sub load {
	my ($class, $filename) = @_;

	my $self = $class->new;

	open my $fh, '<:crlf', $filename or die "Could not open certificate $filename: $!";
	my $raw = do { local $/; <$fh> };
	my (@items) = Crypt::Bear::PEM::pem_decode($raw);

	while (my ($banner, $content) = splice @items, 0, 2) {
		die "File $filename does not contain a certificate" unless $banner =~ /CERTIFICATE/;
		my $cert = Crypt::Bear::X509::Certificate->new($content);
		$self->add($cert);
	}

	return $self;
}

1;

#ABSTRACT: A certificate chain for BearSSL

__END__