File Coverage

blib/lib/Duadua/Parser/Bot/OracleGrapeshotCrawler.pm
Criterion Covered Total %
statement 16 16 100.0
branch 5 6 83.3
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 26 27 96.3


line stmt bran cond sub pod time code
1             package Duadua::Parser::Bot::OracleGrapeshotCrawler;
2 6     6   41 use strict;
  6         12  
  6         168  
3 6     6   28 use warnings;
  6         11  
  6         137  
4 6     6   29 use Duadua::Util qw//;
  6         12  
  6         1007  
5              
6             sub try {
7 130     130 1 272 my ($class, $d) = @_;
8              
9 130 100       261 if ( index($d->ua, ' GrapeshotCrawler/') > -1 ) {
10 4         18 my $h = {
11             name => 'Oracle GrapeshotCrawler',
12             is_bot => 1,
13             };
14              
15 4 100       12 if ($d->opt_version) {
16 2         8 my ($version) = ($d->ua =~ m! GrapeshotCrawler/([\d.]+)!);
17 2 50       10 $h->{version} = $version if $version;
18             }
19              
20 4         17 return Duadua::Util->set_os($d, $h);
21             }
22             }
23              
24             1;
25              
26             __END__