File Coverage

blib/lib/Duadua/Parser/Bot/GoogleRead.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch	4	4	100.0
condition			n/a
subroutine	4	4	100.0
pod	1	1	100.0
total	24	24	100.0

package Duadua::Parser::Bot::GoogleRead;
use strict;
use warnings;
use Duadua::Util;

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

    if ($d->ua eq 'google-speakr') {
        return {
            name   => 'google-speakr',
            is_bot => 1,
        };
    }

    if ( index($d->ua, 'Google-Read-Aloud') > -1 ) {
        my $h = {
            name   => 'Google-Read-Aloud',
            is_bot => 1,
        };
        return Duadua::Util->set_os($d, $h);
    }
}

1;

__END__