HTTP::MobileAgent::DoCoMo 0.26

HTTP::MobileAgent::DoCoMo is a NTT DoCoMo implementation.

SYNOPSIS

use HTTP::MobileAgent;

local $ENV{HTTP_USER_AGENT} = "DoCoMo/1.0/P502i/c10";
my $agent = HTTP::MobileAgent->new;

printf "Name: %sn", $agent->name; # "DoCoMo"
printf "Ver: %sn", $agent->version; # 1.0
printf "HTML ver: %sn", $agent->html_version; # 2.0
printf "Model: %sn", $agent->model; # "P502i"
printf "Cache: %dkn", $agent->cache_size; # 10
print "FOMAn" if $agent->is_foma; # false
printf "Vendor: %sn", $agent->vendor; # P
printf "Series: %sn", $agent->series; # "502i"

# only available with

# e.g.) "DoCoMo/1.0/P503i/c10/serNMABH200331";
printf "Serial: %sn", $agent->serial_number; # "NMABH200331"

# e.g.) "DoCoMo/2.0 N2001(c10;ser0123456789abcde;icc01234567890123456789)";
printf "Serial: %sn", $agent->serial_number; # "0123456789abcde"
printf "Card ID: %sn", $agent->card_id; # "01234567890123456789"

# e.g.) "DoCoMo/1.0/P502i (Google CHTML Proxy/1.0)"
printf "Comment: %sn", $agent->comment; # "Google CHTML Proxy/1.0

# e.g.) "DoCoMo/1.0/D505i/c20/TB/W20H10"
printf "Status: %sn", $agent->status; # "TB"

# only available in eggy/M-stage
# e.g.) "DoCoMo/1.0/eggy/c300/s32/kPHS-K"
printf "Bandwidth: %dkbpsn", $agent->bandwidth; # 32

# e.g.) "DoCoMo/2.0 SO902i(c100;TB;W30H16)"
print "XHTML compiant!n" if $agent->xhtml_compliant; # true

HTTP::MobileAgent::DoCoMo is a subclass of HTTP::MobileAgent, which implements NTT docomo i-mode user agents.