File Coverage

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

Criterion	Covered	Total	%
statement	15	15	100.0
branch	7	8	87.5
condition	3	3	100.0
subroutine	3	3	100.0
pod	1	1	100.0
total	29	30	96.6

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

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

    if ( $d->_contain_mozilla_top && $d->_contain('+https://perplexity.ai/') ) {

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

        if ( $d->_contain('Perplexity-User/') ) {
            $h->{name} = 'Perplexity-User';
        }

        if ($d->opt_version) {
            my ($version) = ($d->ua =~ m!Perplexity(?:-User|Bot)/([\d.]+)!);
            $h->{version} = $version if $version;
        }

        return $h;
    }
}

1;

__END__