File Coverage

blib/lib/Duadua/Parser/FeaturePhone/FeaturePhone.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	15	16	93.7
condition	14	22	63.6
subroutine	4	4	100.0
pod	1	1	100.0
total	64	73	87.6

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

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

    if ( index($d->ua, 'DoCoMo/2.0') > -1 && $d->ua =~ m!^DoCoMo/2\.0 ([^\(]+)\(!) {
        my $name = $1;
        $name =~ s/MST_v_//;
        my $h = {
            name => 'DoCoMo ' . $name,
        };

        return $h;
    }
    elsif ( index($d->ua, 'FOMA;') > -1 && index($d->ua, 'Mozilla/') > -1
            && $d->ua =~ m! \(([^;]+);FOMA;!) {
        my $h = {
            name => 'DoCoMo ' . $1,
        };

        return $h;
    }
    elsif ( index($d->ua, 'SoftBank/') > -1 ) {
        my @elements = split '/', $d->ua;
        my $h = {
            name   => 'SoftBank ' . ($elements[2] || ''),
        };

        return $h;
    }
    elsif ( index($d->ua, 'Vodafone/') > -1 ) {
        my @elements = split '/', $d->ua;
        my $h = {
            name   => 'SoftBank ' . ($elements[2] || ''),
        };

        return $h;
    }
    elsif ( index($d->ua, ';SoftBank') > -1 && index($d->ua, 'Mozilla/') > -1
            && $d->ua =~ m!\(([^;]+);SoftBank!) {
        my $h = {
            name   => 'SoftBank ' . $1,
        };

        return $h;
    }
    elsif ( index($d->ua, 'KDDI-') > -1 && $d->ua =~ m!^KDDI-([^\s]+)\s!) {
        my $h = {
            name   => 'AU KDDI ' . $1,
        };

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

        return $h;
    }
}

1;

__END__