File Coverage

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

Criterion	Covered	Total	%
statement	27	27	100.0
branch	15	16	93.7
condition	8	9	88.8
subroutine	4	4	100.0
pod	1	1	100.0
total	55	57	96.4

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

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

    return unless $d->_contain('oogle');

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

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

    if ( $d->_contain('AdsBot-Google-Mobile') && !$d->_contain('AdsBot-Google-Mobile-') ) {
        my $h = {
            name => 'AdsBot-Google-Mobile',
            is_bot => 1,
        };

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

    if ( $d->_contain('AdsBot-Google-Mobile-Apps') ) {
        return {
            name   => 'AdsBot-Google-Mobile-Apps',
            is_bot => 1,
        };
    }

    if ( ( $d->_prefix('SAMSUNG-SGH-E250/') || $d->_prefix('DoCoMo/') )
            && $d->_contain(' Googlebot-Mobile/') ) {
        return {
            name   => 'Googlebot-Mobile',
            is_bot => 1,
        };
    }

    if ( $d->_contain('DuplexWeb-Google') ) {
        my $h = {
            name   => 'DuplexWeb-Google',
            is_bot => 1,
        };

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

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

    }
}

1;

__END__