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