File Coverage

blib/lib/Duadua/Parser/Bot/Reeder.pm
Criterion Covered Total %
statement 13 13 100.0
branch 5 6 83.3
condition n/a
subroutine 3 3 100.0
pod 1 1 100.0
total 22 23 95.6


line stmt bran cond sub pod time code
1             package Duadua::Parser::Bot::Reeder;
2 6     6   41 use strict;
  6         11  
  6         186  
3 6     6   30 use warnings;
  6         11  
  6         970  
4              
5             sub try {
6 73     73 1 132 my ($class, $d) = @_;
7              
8 73 100       165 if ( index($d->ua, 'Reeder/') > -1 ) {
9 2         10 my $h = {
10             name => 'Reeder',
11             is_bot => 1,
12             };
13              
14 2 100       8 if ($d->opt_version) {
15 1         14 my ($version) = ($d->ua =~ m!^Reeder/([\d.]+)!);
16 1 50       8 $h->{version} = $version if $version;
17             }
18              
19 2         9 return $h;
20             }
21             }
22              
23             1;
24              
25             __END__