File Coverage

lib/Crypt/Perl/X509/Extension/ct_precert_scts.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch			n/a
condition			n/a
subroutine	9	9	100.0
pod	0	1	0.0
total	37	38	97.3

package Crypt::Perl::X509::Extension::ct_precert_scts;

use strict;
use warnings;

=encoding utf-8

=head1 NAME

Crypt::Perl::X509::Extension::ct_precert_scts - X.509 ct_precert_scts extension

=head1 SYNOPSIS

    my $extn = Crypt::Perl::X509::Extension::ct_precert_scts->new(
        {
            log_id => ..,
            timestamp => ..,
            extensions => [ .. ],
            signature_algorithm => '..',
        },
        # ..
    );

=head1 DESCRIPTION

Instances of this class represent a C extension
of an X.509 (SSL) certificate.

You probably don’t need to
instantiate this class directly; see L
and L for the way this module is meant to be used.

=head1 SEE ALSO

=over

=item * L

=item * L

=back

=cut

use parent qw(
    Crypt::Perl::X509::Extension
);

use Crypt::Perl::X509::SCT ();

use constant OID => '1.3.6.1.4.1.11129.2.4.2';

use constant ASN1 => <
    ct_precert_scts ::= SignedCertificateTimestampList

    SignedCertificateTimestampList ::= OCTET STRING
END

sub new {
    my ($class, @sct_hrs) = @_;

    return bless \@sct_hrs, $class;
}

sub _encode_params {
    my ($self) = @_;

    my @scts = map { Crypt::Perl::X509::SCT::encode(%$_) } @$self;

    # Prefix with length.
    _tls_length_encode($_) for @scts;

    my $list = join( q<>, @scts );

    _tls_length_encode($list);
}

sub _tls_length_encode {
    substr( $_[0], 0, 0, pack('n', length $_[0]) );

    return $_[0];
}

1;