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   52 use strict;
  9         14  
  9         228  
4 9     9   40 use warnings;
  9         15  
  9         196  
5              
6 9     9   368 use Crypt::Format ();
  9         454  
  9         751  
7              
8             #Modifies in-place.
9             sub ensure_der {
10 528 100   528 0 5773 if ( $_[0] =~ m<\A-> ) {
11 527         4918 $_[0] = Crypt::Format::pem2der($_[0]);
12             }
13              
14 528         35785 return;
15             }
16              
17             1;