File Coverage

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

Criterion	Covered	Total	%
statement	13	15	86.6
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	18	20	90.0

package HTTP::MobileAgent::Plugin::ID;

use warnings;
use strict;
use Carp;

use version; our $VERSION = qv('0.0.2');
use HTTP::MobileAgent::Plugin::XHTML;

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

package # hide from PAUSE
       HTTP::MobileAgent;

sub id {
    my $self = shift;
    $self->{__id} = $_[0] if (defined($_[0]));
    $self->{__id} = $self->__id unless (defined($self->{__id}));
    $self->{__id};
}

sub __id{  }

sub support_id { 0 }

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

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

sub __id { $_[0]->card_id || $_[0]->serial_number }

sub support_id { $_[0]->html_version ? $_[0]->html_version > 2.0 ? 1 : 0 : 1 }

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

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

sub __id { $_[0]->get_header('x-up-subno') }

sub support_id { 1 }

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

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

sub __id {
    if ($_[0]->is_type_c) {
        return $_[0]->serial_number;
    } else {
        my $juid = $_[0]->get_header('x-jphone-uid');
        if ($juid && $juid ne "") {
            $juid =~ s/^.(.+)$/0$1/;
            return $juid;
        } else {
            return;
        }
    }
}

sub support_id { 1 }

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