File Coverage

blib/lib/HTTP/MobileAgent/Plugin/RoamingZone.pm

Criterion	Covered	Total	%
statement	16	18	88.8
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	22	24	91.6

package HTTP::MobileAgent::Plugin::RoamingZone;

use warnings;
use strict;
use Carp;

use version; our $VERSION = qv('0.0.3');
use HTTP::MobileAgent;
use Mobile::Data::ITU;
use Mobile::Data::SID;

##########################################
# Base Module

package # hide from PAUSE
       HTTP::MobileAgent;
use Mobile::Data::ITU;

sub zone_code { $_[0]->_zone_code || '440' }

sub _zone_code {}

sub zone_name {
    my $ret = $_[0]->_zone_name;
    unless ( $ret ) {
        my $code = $_[0]->zone_code;
        $ret = itu2country($code) if ($code =~ /^\d+$/);
        $ret = 'Unknown' unless ($ret);
    }
    $ret;
}

sub _zone_name {}

sub is_oversea { $_[0]->zone_name eq 'Japan' ? 0 : 1 }


##########################################
# DoCoMo Module

package # hide from PAUSE
       HTTP::MobileAgent::DoCoMo;

sub _zone_code {
    my $ret = $_[0]->get_header('x-dcmroaming');
    $ret =~ s/^.*(\d{3}).*$/$1/ if ( $ret );
    $ret;
}

##########################################
# EZWeb Module

package # hide from PAUSE
       HTTP::MobileAgent::EZweb;
use Mobile::Data::SID;

sub _zone_code { $_[0]->get_header('x-up-devcap-zone') || 12304 }

sub _zone_name { sid2country( $_[0]->zone_code ) }

##########################################
# SoftBank Module

package # hide from PAUSE
       HTTP::MobileAgent::Vodafone;
use Mobile::Data::ITU;

sub _zone_code { $_[0]->get_header('x-jphone-region') }

#sub _zone_name {'Japan' if ( $_[0]->zone_code eq '44020' ) }


1; # Magic true value required at end of module
__END__