File Coverage

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

Criterion	Covered	Total	%
statement	52	52	100.0
branch	42	50	84.0
condition	9	15	60.0
subroutine	4	4	100.0
pod	1	1	100.0
total	108	122	88.5

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

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

    if ( $d->ua eq 'lynx' ) {
        return {
            name => 'Lynx',
        };
    }
    elsif ( $d->_prefix('Lynx/') ) {
        my $h = {
            name => 'Lynx',
        };

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

        return $h;
    }
    elsif ( $d->_contain(' EzLynx/') ) {
        my $h = {
            name => 'EzLynx',
        };

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

        return Duadua::Util->set_os($d, $h);
    }
    elsif ( $d->_contain('w3m/') ) {
        my $h = {
            name => 'w3m',
        };

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

        return $h;
    }
    elsif ( $d->_contain(' Konqueror/') ) {
        my $h = {
            name => 'Konqueror',
        };

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

        return Duadua::Util->set_os($d, $h);
    }
    elsif ( $d->_prefix('OmniWeb/')
            || ($d->_contain(' OmniWeb/') && $d->_contain_mozilla) ) {
        my $h = {
            name   => 'OmniWeb',
            is_ios => 1,
        };

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

        return $h;
    }
    elsif ( $d->_contain(' QtWebEngine/') && $d->_contain_mozilla ) {
        my $h = {
            name => 'QtWebEngine',
        };

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

        return Duadua::Util->set_os($d, $h);
    }
    elsif ( $d->_contain(' UBrowser/') && $d->_contain('Win') ) {
        my $h = {
            name => 'UBrowser',
        };

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

        return Duadua::Util->set_os($d, $h);
    }
    elsif ( $d->_contain(' MZBrowser/') && $d->_contain('UWS') ) {
        my $h = {
            name => 'MZBrowser',
        };

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

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

1;

__END__