File Coverage

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

Criterion	Covered	Total	%
statement	28	28	100.0
branch	15	18	83.3
condition	4	6	66.6
subroutine	4	4	100.0
pod	1	1	100.0
total	52	57	91.2

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

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

    if ( index($d->ua, 'Opera/') > -1 ) {
        my $h = {
            name => 'Opera',
        };

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

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

    if ( index($d->ua, ' OPR/') > -1 && index($d->ua, 'Mozilla/') > -1 ) {
        my $h = {
            name => 'Opera',
        };

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

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

    if ( index($d->ua, ' OPT/') > -1 && index($d->ua, 'Mozilla/') > -1 ) {
        my $h = {
            name => 'Opera Touch',
        };

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

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

1;

__END__