File Coverage

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


line stmt bran cond sub pod time code
1             package Duadua::Parser::Bot::YahooSlurp;
2 6     6   1104 use strict;
  6         10  
  6         162  
3 6     6   25 use warnings;
  6         21  
  6         466  
4              
5             sub try {
6 206     206 1 381 my ($class, $d) = @_;
7              
8 206 100       400 if ( index($d->ua, ' Yahoo! Slurp;') > -1 ) {
9             return {
10 1         5 name => 'Yahoo! Slurp',
11             is_bot => 1,
12             };
13             }
14             }
15              
16             1;
17              
18             __END__