HTTP::MobileUserID - mobile user ID is returned

  use HTTP::MobileUserID;
  use HTTP::MobileAgent;

  my $agent  = HTTP::MobileAgent->new;
  my $userid = HTTP::MobileUserID->new($agent);

  if ( $userid->supported ) {
    print $userid->id;
  }

mobile user ID is returned

Ittetsu Miyazaki <ittetsu.miyazaki@gmail.com>

Thanks to Dan Kogai

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

HTTP::MobileAgent

Nihongo Document is HTTP/MobileUserID/Nihongo.pod