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

package Duadua::Parser::Bot::Sakura;
use strict;
use warnings;
use Duadua::Util qw//;

sub try {
    my ($class, $d) = @_;

    if ( $d->_contain('SAKURA Cloud Simplemon') ) {
        my $h = {
            name   => 'SAKURA Cloud Simplemon',
            is_bot => 1,
        };

        return $h;
    }
}

1;

__END__