File Coverage

lib/Crypt/Perl/ToDER.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch	2	2	100.0
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	18	19	94.7

package Crypt::Perl::ToDER;

use strict;
use warnings;

use Crypt::Format ();

#Modifies in-place.
sub ensure_der {
    if ( $_[0] =~ m<\A-> ) {
        $_[0] = Crypt::Format::pem2der($_[0]);
    }

    return;
}

1;