File Coverage

blib/lib/Duadua/Util.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	16	16	100.0
condition	12	18	66.6
subroutine	4	4	100.0
pod	2	2	100.0
total	59	65	90.7

package Duadua::Util;
use strict;
use warnings;

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

    if ( $d->_contain('Win') && ($d->_contain('Win32') || $d->_contain('Windows')) ) {
        $h->{is_windows} = 1;
    }
    elsif ( $d->_contain('Android') ) {
        $h->{is_android} = 1;
        $h->{is_linux}   = 1; # Android is Linux also.
    }
    elsif ( $d->_contain('iPhone') ) {
        $h->{is_ios} = 1;
    }
    elsif ( $d->_contain('iP') && ($d->_contain('iPad') || $d->_contain('iPod')) ) {
        $h->{is_ios} = 1;
    }
    elsif ( $d->_contain('Mac') && ($d->_contain('Macintosh') || $d->_contain('Mac OS')) ) {
        $h->{is_ios} = 1;
    }
    elsif ( $d->_contain(' CrOS ') ) {
        $h->{is_chromeos} = 1;
    }
    elsif ( $d->_contain('Linux') ) {
        $h->{is_linux} = 1;
    }

    return $h;
}

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

    my $pre = 0;
    for my $word (@{$list}) {
        my $position = index($d->ua, $word);
        return 0 if $position < $pre;
        $pre = $position;
    }

    return 1; # Match!
}

1;

__END__