File Coverage

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

Criterion	Covered	Total	%
statement	19	19	100.0
branch	11	14	78.5
condition	8	12	66.6
subroutine	3	3	100.0
pod	1	1	100.0
total	42	49	85.7

package Duadua::Parser::Browser::MicrosoftEdge;
use strict;
use warnings;

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

    return if index($d->ua, 'Edg') == -1;

    if ( ( index($d->ua, 'Edge/') > -1 || index($d->ua, 'Edg/') > -1 )
            && index($d->ua, 'Windows') > -1 && index($d->ua, 'Mozilla/') > -1 ) {
        my $h = {
            name   => 'Microsoft Edge',
            is_windows => 1,
        };

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

        return $h;
    }
    elsif ( index($d->ua, 'EdgiOS/') > -1 && index($d->ua, 'Mozilla/') > -1 ) {
        my $h = {
            name   => 'Microsoft Edge',
            is_ios => 1,
        };

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

        return $h;
    }
}

1;

__END__