File Coverage

blib/lib/Protocol/ACME/Utils.pm
Criterion Covered Total %
statement 8 8 100.0
branch 2 2 100.0
condition n/a
subroutine 3 3 100.0
pod 0 1 0.0
total 13 14 92.8


line stmt bran cond sub pod time code
1             package Protocol::ACME::Utils;
2              
3 6     6   41 use strict;
  6         13  
  6         178  
4 6     6   30 use warnings;
  6         11  
  6         533  
5              
6             our $VERSION = '1.02';
7              
8             sub looks_like_pem
9             {
10 20     20 0 69 my ($str) = @_;
11 20 100       141 return (substr($str, 0, 4) eq '----') ? 1 : 0;
12             }
13              
14             1;