NAME

SYNOPSIS

  use HTTP::MobileAgent;

  local $ENV{HTTP_USER_AGENT} = "UP.Browser/3.01-HI02 UP.Link/3.2.1.2";
  my $agent = HTTP::MobileAgent->new;

  printf "Name: %s\n", $agent->name;            # "UP.Browser"
  printf "Version: %s\n", $agent->version;      # 3.01
  printf "DevieID: %s\n", $agent->device_id;    # HI02
  printf "Server: %s\n", $agent->server;        # "UP.Link/3.2.1.2"

  # e.g.) UP.Browser/3.01-HI02 UP.Link/3.2.1.2 (Google WAP Proxy/1.0)
  printf "Comment: %s\n", $agent->comment;      # "Google WAP Proxy/1.0"

  # e.g.) KDDI-TS21 UP.Browser/6.0.2.276 (GUI) MMP/1.1
  print "XHTML compiant!\n" if $agent->xhtml_compliant; # true

DESCRIPTION

METHODS

version

  $version = $agent->version;
    

returns UP.Browser version number like '3.01'.

device_id

  $device_id = $agent->device_id;
    

returns device ID like 'TS21'.

server

  $server = $agent->server;
    

returns server string like "UP.Link/3.2.1.2".

comment

  $comment = $agent->comment;
    

returns comment like "Google WAP Proxy/1.0". returns undef if nothinng.

xhtml_compliant

  if ($agent->xhtml_compliant) { }
    

returns if the agent is XHTML compliant.

is_tuka

  if ($agent->is_tuka) { }
    

returns if the agent is TU-KA model.

is_win

  if ($agent->is_win) { }
    

returns if the agent is win model.

TODO

•

Spec information support listed in http://www.au.kddi.com/ezfactory/tec/spec/new_win/ezkishu.html

(Patches are always welcome ;))

AUTHOR

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO

http://www.au.kddi.com/ezfactory/tec/spec/4_4.html

http://www.au.kddi.com/ezfactory/tec/spec/new_win/ezkishu.html