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

SYNOPSIS
      use Mail::Address::MobileJp;

      my $email = '123456789@docomo.ne.jp';
      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 <miyagawa@bulknews.net>

    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