File Coverage

blib/lib/Duadua/Parser/Bot/Feedbin.pm
Criterion Covered Total %
statement 12 12 100.0
branch 2 2 100.0
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 19 19 100.0


line stmt bran cond sub pod time code
1             package Duadua::Parser::Bot::Feedbin;
2 6     6   13715 use strict;
  6         11  
  6         203  
3 6     6   26 use warnings;
  6         12  
  6         135  
4 6     6   361 use Duadua::Util qw//;
  6         13  
  6         447  
5              
6             sub try {
7 69     69 1 151 my ($class, $d) = @_;
8              
9 69 100       163 if ( index($d->ua, 'Feedbin feed-id') > -1 ) {
10             return {
11 1         8 name => 'Feedbin',
12             is_bot => 1,
13             };
14             }
15             }
16              
17             1;
18              
19             __END__