File Coverage

blib/lib/HTTP/MobileUID.pm

Criterion	Covered	Total	%
statement	41	41	100.0
branch	16	16	100.0
condition	8	11	72.7
subroutine	10	10	100.0
pod	5	7	71.4
total	80	85	94.1

package HTTP::MobileUID;

use strict;
use warnings;
use base qw/Class::Data::Accessor/;
__PACKAGE__->mk_classaccessors(qw/agent uid convert_uid/);

our $VERSION = '0.01';

sub new {
    my $proto = shift;
    my $self = bless {} , ref $proto || $proto;
    $self->init(@_);
    return $self;
}

sub has_uid {  shift->uid }
sub no_uid  { !shift->uid }

*id = \&uid;

sub init {
    my $self  = shift;
    my $agent = $self->agent(shift);

    if ( $agent->is_docomo ) {
        # Apache::DoCoMoUIDを利用。
        my $uid = $agent->get_header('x-docomo-uid');
        if ( $self->is_docomo_uid($uid) ) {
            $self->uid($uid);
            $uid =~ s/^0[01]//;
            $self->convert_uid($uid);
        }
    }
    elsif ( $agent->is_softbank ) {
        my $uid = $agent->get_header('x-jphone-uid') || 'NULL';
        if ( $uid ne 'NULL' ) {
            if ( $self->is_softbank_uid($uid) ) {
                $self->uid($uid);
                $uid =~ s/^.//;
                $self->convert_uid($uid);
            }
        }
    }
    elsif ( $agent->is_ezweb ) {
        my $uid = $agent->get_header('x-up-subno');
        if ( $self->is_ezweb_uid($uid) ) {
            $self->uid($uid);
            $self->convert_uid($uid);
        }
    }
}

sub is_docomo_uid {
    my $class = shift;
    my $uid   = shift || '';
    return 0 if $uid eq 'NULLGWDOCOMO';
    $uid =~ /^[0-9a-zA-Z]{12}$/;
}
sub is_softbank_uid { shift; ( shift || '' ) =~ /^[0-9a-zA-Z]{16}$/ }
sub is_ezweb_uid    { shift; ( shift || '' ) =~ /^[0-9]+_[0-9a-zA-Z]+\.[0-9a-zA-Z.\-]+$/ }

1;

__END__