File Coverage

blib/lib/Duadua/Parser/Bot/LetsEncrypt.pm
Criterion Covered Total %
statement 10 10 100.0
branch 2 2 100.0
condition n/a
subroutine 3 3 100.0
pod 1 1 100.0
total 16 16 100.0


line stmt bran cond sub pod time code
1             package Duadua::Parser::Bot::LetsEncrypt;
2 6     6   39 use strict;
  6         13  
  6         169  
3 6     6   39 use warnings;
  6         13  
  6         592  
4              
5             sub try {
6 29     29 1 63 my ($class, $d) = @_;
7              
8 29 100       74 if ( index($d->ua, q|Let's Encrypt validation server; +https://www.letsencrypt.org|) > -1 ) {
9 1         6 my $h = {
10             name => q|Let's Encrypt|,
11             is_bot => 1,
12             };
13              
14 1         5 return $h;
15             }
16             }
17              
18             1;
19              
20             __END__