File Coverage

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

Criterion	Covered	Total	%
statement	19	19	100.0
branch	8	10	80.0
condition	4	6	66.6
subroutine	4	4	100.0
pod	1	1	100.0
total	36	40	90.0

package Duadua::Parser::Bot::Bingbot;
use strict;
use warnings;

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

    if ( index($d->ua, 'bingbot/') > -1
            && index($d->ua, '+http://www.bing.com/bingbot.htm') > -1
                && index($d->ua, 'Mozilla/') > -1 ) {
        my $h = _set_property($d, 'Bingbot');

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

        return $h;
    }
}

sub _set_property {
    my ($d, $name) = @_;

    my $h = {
        name   => $name,
        is_bot => 1,
    };

    if ( index($d->ua, 'Windows') > -1 ) {
        $h->{is_windows} = 1;
    }
    elsif ( index($d->ua, 'iPhone') > -1 ) {
        $h->{is_ios} = 1;
    }

    return $h;
}

1;

__END__