File Coverage

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

Criterion	Covered	Total	%
statement	22	22	100.0
branch	11	12	91.6
condition	3	3	100.0
subroutine	4	4	100.0
pod	1	1	100.0
total	41	42	97.6

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

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

    return unless index($d->ua, 'Google') > -1;

    if ( index($d->ua, 'Googlebot') > -1 && index($d->ua, 'Googlebot-') == -1 ) {
        my $h = {
            name   => 'Googlebot',
            is_bot => 1,
        };

        if ($d->opt_version) {
            my ($version) = ($d->ua =~ m!Googlebot/([\d.]+)!);
            $h->{version} = $version if $version;
        }

        return Duadua::Util->set_os($d, $h);
    }

    if ( index($d->ua, 'Google Favicon') > -1 ) {
        my $h = {
            name   => 'Google Favicon',
            is_bot => 1,
        };

        return Duadua::Util->set_os($d, $h);
    }

    if ( index($d->ua, 'APIs-Google') > -1 ) {
        return {
            name   => 'APIs-Google',
            is_bot => 1,
        };
    }
}

1;

__END__