File Coverage

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


line stmt bran cond sub pod time code
1             package Duadua::Parser::Bot::Sakura;
2 6     6   39 use strict;
  6         11  
  6         171  
3 6     6   26 use warnings;
  6         10  
  6         140  
4 6     6   30 use Duadua::Util qw//;
  6         12  
  6         522  
5              
6             sub try {
7 291     291 1 555 my ($class, $d) = @_;
8              
9 291 100       576 if ( index($d->ua, 'SAKURA Cloud Simplemon') > -1 ) {
10 1         9 my $h = {
11             name => 'SAKURA Cloud Simplemon',
12             is_bot => 1,
13             };
14              
15 1         5 return $h;
16             }
17             }
18              
19             1;
20              
21             __END__