File Coverage

blib/lib/HTTP/MobileAttribute/CarrierDetector.pm

Criterion	Covered	Total	%
statement	13	14	92.8
branch	9	10	90.0
condition			n/a
subroutine	3	3	100.0
pod	1	1	100.0
total	26	28	92.8

package HTTP::MobileAttribute::CarrierDetector;
use strict;
use warnings;

# this matching should be robust enough
# detailed analysis is done in subclass's parse()
our $DoCoMoRE = '^DoCoMo\/\d\.\d[ \/]';
our $JPhoneRE = '^(?i:J-PHONE\/\d\.\d)';
our $VodafoneRE = '^Vodafone\/\d\.\d';
our $VodafoneMotRE = '^MOT-';
our $SoftBankRE = '^SoftBank\/\d\.\d';
our $SoftBankCrawlerRE = '^Nokia[^\/]+\/\d\.\d';
our $EZwebRE  = '^(?:KDDI-[A-Z]+\d+[A-Z]? )?UP\.Browser\\/';
our $AirHRE = '^Mozilla\/3\.0\((?:WILLCOM|DDIPOCKET)\;';

sub detect {
    my $user_agent = shift;

    if (not defined $user_agent) {
        return 'NonMobile';
    } elsif ( $user_agent =~ /$DoCoMoRE/ ) {
        return 'DoCoMo';
    } elsif ( $user_agent =~ /$JPhoneRE|$VodafoneRE|$VodafoneMotRE|$SoftBankRE|$SoftBankCrawlerRE/) {
        return 'ThirdForce';
    } elsif ( $user_agent =~ /$EZwebRE/ ) {
        return 'EZweb';
    } elsif ( $user_agent =~ /$AirHRE/ ) {
        return 'AirHPhone';
    } else {
        return 'NonMobile';
    }
}


1;
__END__