NAME

Email::Address::JP::Mobile - Japanese carrier email class

SYNOPSIS

use Email::Address::JP::Mobile;

my $carrier = Email::Address::JP::Mobile->new('docomo.taro.@docomo.ne.jp');
$carrier->is_mobile; # => true
$carrier->name; # => "DoCoMo"
$carrier->carrier_letter; # => "I"

or

use Email::Address::Loose;
use Email::Address::JP::Mobile;

my ($email) = Email::Address::Loose->parse('docomo.taro.@docomo.ne.jp');
$email->carrier->is_mobile; # => true

DESCRIPTION

Email::Address::JP::Mobile is a module for Japanese web developers.

このモジュールは要するに HTTP::MobileAgent のメール版です。

同様のことができるモジュールに Mail::Address::MobileJp があります。 Email::Address::JP::Mobile は Email::Address オブジェクトを拡張する点や is_mobile($email) ではなく $email->carrier->is_mobile という インターフェースである点が違います。

METHODS

$carrier = Email::Address::JP::Mobile->new( $email )

メールアドレスから、対応したクラスを返します。

my $carrier = Email::Address::JP::Mobile->new('docomo.taro.@docomo.ne.jp');
# $carrier is a Email::Address::JP::Mobile::DoCoMo
$carrier->is_mobile; # => true
$carrier->name; # => "DoCoMo"
$carrier->carrier_letter; # => "I"

携帯メアドではない場合は Email::Address::JP::Mobile::NonMobile クラスを返します。

$carrier = $email->carrier()

my ($email) = Email::Address->parse('docomo.taro@docomo.ne.jp');
$email->carrier->carrier_letter; # "I"

Email::Address::JP::Mobile は Email::Address オブジェクトに carrier() というメソッドを拡張します。

ご存知のように日本の携帯は変なアドレスが許可されている期間が長かったので、 携帯アドレスをパースする可能性があるのであれば Email::Address::Loose を 利用もしくは併用した方がよいです。

EMAIL CLASS METHODS

$carrier->is_mobile

$carrier->name

$carrier->carrier_letter

各メソッドが返す値は以下のとおりです。

           is_mobile  name         carrier_letter
-------------------------------------------------
DoCoMo     true       "DoCoMo"     "I"
au         true       "EZweb"      "E"
SoftBank   true       "SoftBank"   "V"
WILLCOM    true       "AirH"       "H"
NonMobile  false      "NonMobile"  "N"

ROADMAP

メールの解析、送信時用のエンコーディングを返すメソッドを追加予定。

SEE ALSO

Email::Address::Loose, Mail::Address::MobileJp

#mobilejp on irc.freenode.net (I've joined as "tomi-ru")

AUTHOR

Naoki Tomita <tomita@cpan.org>

LICENSE

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