File Coverage

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

Criterion	Covered	Total	%
statement	25	25	100.0
branch	16	18	88.8
condition	5	6	83.3
subroutine	4	4	100.0
pod	1	1	100.0
total	51	54	94.4

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

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

    return if index($d->ua, 'http') > -1;
    return if index($d->ua, 'Browser/') > -1;
    return if index($d->ua, 'HatenaBookmark/Android') > -1;

    if ( index($d->ua, 'Mozilla/5.0 (Mac') > -1 && index($d->ua, 'Safari/') > -1 ) {
        my $h = {
            name   => 'Apple Safari',
            is_ios => 1,
        };

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

        return $h;
    }

    if ( index($d->ua, 'Mozilla/5.0') > -1
        && Duadua::Util->ordering_match($d, [' AppleWebKit/', ' Version/', ' Safari/']) ) {
        my $h = {
            name => 'Apple Safari',
        };

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

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

1;

__END__