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


line stmt bran cond sub pod time code
1             package Crypt::Perl::ToDER;
2              
3 9     9   50 use strict;
  9         14  
  9         223  
4 9     9   40 use warnings;
  9         13  
  9         189  
5              
6 9     9   401 use Crypt::Format ();
  9         466  
  9         695  
7              
8             #Modifies in-place.
9             sub ensure_der {
10 528 100   528 0 5212 if ( $_[0] =~ m<\A-> ) {
11 527         4891 $_[0] = Crypt::Format::pem2der($_[0]);
12             }
13              
14 528         36815 return;
15             }
16              
17             1;