File Coverage

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

Criterion	Covered	Total	%
statement	25	25	100.0
branch	15	18	83.3
condition			n/a
subroutine	3	3	100.0
pod	1	1	100.0
total	44	47	93.6

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

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

    if ( index($d->ua, 'Slackbot-LinkExpanding ') > -1 ) {
        my $h = {
            name   => 'Slackbot Link Expanding',
            is_bot => 1,
        };

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

        return $h;
    }

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

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

        return $h;
    }

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

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

        return $h;
    }
}

1;

__END__