File Coverage

blib/lib/Duadua/Parser/Browser/GoogleChrome.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	19	22	86.3
condition	15	18	83.3
subroutine	4	4	100.0
pod	1	1	100.0
total	66	72	91.6

package Duadua::Parser::Browser::GoogleChrome;
use strict;
use warnings;
use Duadua::Util;

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

    return if $d->_contain('http');
    return if $d->_contain('oogle');
    return if $d->_contain(' OPR/') || $d->_contain(' Vivaldi/');
    return if $d->_contain('Browser/');
    return if $d->_contain('QtWebEngine');

    if ( $d->_contain('Chrome/') && $d->_contain('AppleWebKit/') && $d->_contain('Safari/') ) {
        my $h = {
            name => 'Google Chrome',
        };

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

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

    if ( $d->_contain_mozilla && $d->_contain('AppleWebKit/')
        && ($d->_contain('CrMo/') || $d->_contain('CriOS/')) ) {
        my $h = {
            name => 'Google Chrome',
        };

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

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

1;

__END__