NAME
   Mail::Address::MobileJp - mobile email address in Japan

SYNOPSIS
     use Mail::Address::MobileJp;

     my $email = '[email protected]';
     if (is_mobile_jp($email)) {
         print "$email is mobile email in Japan";
     }

     # extract mobile email address from an array of addresses
     my @mobile = grep { is_mobile_jp($_) } @addr;

DESCRIPTION
   Mail::Address::MobileJp is an utility to detect an email address is
   mobile (cellurar) email address or not.

   This module should be updated heavily :)

FUNCTION
   This module exports following function(s).

   is_mobile_jp
         $bool = is_mobile_jp($email);

       can be an email string or Mail::Address object.

   is_imode
         $bool = is_imode($email);

       returns whether $email is a i-mode email address or
       not. $email can be an email string or Mail::Address
       object.

   is_vodafone
         $bool = is_vodafone($email);

       returns whether $email is a vodafone(j-sky) email
       address or not. $email can be an email string or
       Mail::Address object.

   is_ezweb
         $bool = is_ezweb($email);

       returns whether $email is a ezweb email address or
       not. $email can be an email string or Mail::Address
       object.

AUTHOR
   Tatsuhiko Miyagawa <[email protected]>

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

SEE ALSO
   the Mail::Address manpage, http://www.mag2.com/faq/mobile.htm