File Coverage

lib/Crypt/Perl/ASN1/Encodee.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	1	2	50.0
condition	1	3	33.3
subroutine	6	6	100.0
pod	0	2	0.0
total	28	33	84.8

package Crypt::Perl::ASN1::Encodee;

use strict;
use warnings;

use Crypt::Perl::ASN1 ();
use Crypt::Perl::X ();

sub asn1_macro {
    my ($self_or_class) = @_;

    my $class = ref($self_or_class) || $self_or_class;

    $class =~ m<.+::(.+)> or die Crypt::Perl::X::create('Generic', "Invalid class: “$class”");

    return $1;
}

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

    my $asn1 = Crypt::Perl::ASN1->new();
    $asn1 = $asn1->prepare( $self->ASN1() )->find( $self->asn1_macro() );

    return $asn1->encode( $self->_encode_params() );
}

1;