File Coverage

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

Criterion	Covered	Total	%
statement	30	30	100.0
branch	17	22	77.2
condition	9	15	60.0
subroutine	4	4	100.0
pod	1	1	100.0
total	61	72	84.7

package Duadua::Parser::Browser::MicrosoftInternetExplorer;
use strict;
use warnings;
use Duadua::Util qw//;

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

    return if $d->_contain('http');
    return if $d->_contain(' BingPreview');

    if ( $d->_contain('MSIE ') && $d->_contain_mozilla && $d->_contain('Windows ') ) {
        my $h = {
            name       => 'Internet Explorer',
            is_windows => 1,
        };

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

        return $h;
    }

    if ( $d->_contain('Trident/') && $d->_contain(' rv:1') && $d->_contain_mozilla && $d->_contain('Windows ') ) {
        my $h = {
            name       => 'Internet Explorer',
            is_windows => 1,
        };

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

        return $h;
    }

    if ( $d->_contain('Windows-RSS-Platform/') ) {
        my $h = {
            name => 'Windows RSS Platform',
        };

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

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

1;

__END__