File Coverage

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

Criterion	Covered	Total	%
statement	29	31	93.5
branch	2	4	50.0
condition			n/a
subroutine	9	9	100.0
pod	0	1	0.0
total	40	45	88.8

package Crypt::Perl::X509::Extension::extKeyUsage;

use strict;
use warnings;

=encoding utf-8

=head1 NAME

Crypt::Perl::X509::Extension::extKeyUsage

=cut

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

use Crypt::Perl::X ();

use constant OID => '2.5.29.37';

use constant ASN1 => <
    extKeyUsage ::= SEQUENCE OF KeyPurposeId

    KeyPurposeId ::= OBJECT IDENTIFIER
END

use constant {
    OID_serverAuth => '1.3.6.1.5.5.7.3.1',
    OID_clientAuth => '1.3.6.1.5.5.7.3.2',
    OID_codeSigning => '1.3.6.1.5.5.7.3.3',
    OID_emailProtection => '1.3.6.1.5.5.7.3.4',
    OID_timeStamping => '1.3.6.1.5.5.7.3.8',
    OID_OCSPSigning => '1.3.6.1.5.5.7.3.9',
};

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

    if (!@purposes) {
        die Crypt::Perl::X::create('Generic', 'Need purposes!');
    }

    return bless \@purposes, $class;
}

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

    my $data = [
        map {
            if ( !$self->can("OID_$_") ) {
                die( Crypt::Perl::X::create('Generic', "Unknown usage: “$_”") ),
            }

            $self->can("OID_$_")->();
        } @$self,
    ];

    return $data;
}

1;