File Coverage

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

Criterion	Covered	Total	%
statement	23	24	95.8
branch	1	2	50.0
condition			n/a
subroutine	8	8	100.0
pod	0	1	0.0
total	32	35	91.4

package Crypt::Perl::X509::Extension::subjectKeyIdentifier;

use strict;
use warnings;

=encoding utf-8

=head1 NAME

Crypt::Perl::X509::Extension::keyUsage

=head1 SYNOPSIS

    my $usage_obj = Crypt::Perl::X509::Extension::subjectKeyIdentifier->new(
        $subj_key_id    #octet string
    );

=head1 SEE ALSO

L

=cut

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

use Crypt::Perl::X ();

use constant {
    OID => '2.5.29.14',
    CRITICAL => 0,
};

use constant ASN1 => <
    subjectKeyIdentifier ::= OCTET STRING
END

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

    if (!length $octet_str) {
        die Crypt::Perl::X::create('Generic', 'Need data!');
    }

    return bless \$octet_str, $class;
}

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

    return $$self;
}

1;