
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.

Nihongo Document is HTTP/MobileUserID/Nihongo.pod