File Coverage

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

Criterion	Covered	Total	%
statement	42	42	100.0
branch	31	38	81.5
condition	3	3	100.0
subroutine	4	4	100.0
pod	1	1	100.0
total	81	88	92.0

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

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

    return if index($d->ua, 'Hatena') == -1;

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

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

        return $h;
    }
    elsif ( index($d->ua, 'Hatena Pagetitle Agent/') > -1 ) {
        my $h = {
            name   => 'Hatena Pagetitle Agent',
            is_bot => 1,
        };

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

        return $h;
    }
    elsif ( index($d->ua, 'Hatena Star UserAgent/') > -1 ) {
        my $h = {
            name   => 'Hatena Star UserAgent',
            is_bot => 1,
        };

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

        return $h;
    }
    elsif ( index($d->ua, 'Hatena-Favicon/') > -1 ) {
        my $h = {
            name   => 'Hatena-Favicon',
            is_bot => 1,
        };

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

        return $h;
    }
    elsif ( index($d->ua, 'Hatena::') > -1 && $d->ua =~ m!^(Hatena::[a-zA-Z:]+)/!) {
        my $h = {
            name   => $1,
            is_bot => 1,
        };

        if ($d->opt_version) {
            my ($version) = ($d->ua =~ m!^Hatena::[a-zA-Z:]+/([\d.]+)!);
            $h->{version} = $version if $version;
        }

        return $h;
    }
    elsif ( index($d->ua, 'HatenaBookmark/') > -1 ) {
        my $h = {
            name   => "HatenaBookmark",
            is_bot => 1,
        };

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

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

1;

__END__