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   18 use strict;
  6         4  
  6         118  
4 6     6   18 use warnings;
  6         2  
  6         337  
5              
6             our $VERSION = '1.01';
7              
8             sub looks_like_pem
9             {
10 20     20 0 37 my ($str) = @_;
11 20 100       103 return (substr($str, 0, 4) eq '----') ? 1 : 0;
12             }
13              
14             1;