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

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"


  $body    = $carrier->send_encoding->encode($body);
  $subject = $carrier->mime_encoding->encode($subject);

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.

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

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

METHODS

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

メールアドレスから、Email::Address::JP::Mobile::* の対応したクラスを返します。

  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() 
  use Email::Address;
  use Email::Address::JP::Mobile;
  my ($email) = Email::Address->parse('docomo.taro@docomo.ne.jp');
  $email->carrier->carrier_letter; # "I"

Email::Address::JP::Mobile は the Email::Address manpage オブジェクトに、対応したクラスを返す carrier() というメソッドを拡張します。

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

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"
$carrier->mime_encoding() 
  $subject = $carrier->mime_encoding->encode($subject);
  $subject = $carrier->mime_encoding->decode($subject);

そのキャリア向けにメールを送信する際、絵文字を含んだ Subject などを MIME encode するためのエンコーディングを返します。

そのキャリアから受け取ったメールの Subject などを MIME decode するためにも利用できます。ただし DoCoMo や SoftBank からの場合絵文字は最初からゲタになり取れないため通常の MIME-Header-ISO_2022_JP 扱いとなります。

$carrier->send_encoding() 
  $body = $carrier->send_encoding->encode($body);

そのキャリア向けにメールを送信する際、絵文字を含んだメール本文を encode するためのエンコーディングを返します。

$carrier->parse_encoding() 
  $body = $carrier->parse_encoding->decode($body);

そのキャリアから受け取ったメールの絵文字を含んだメール本文を decode するためのオススメなエンコーディングを返します。これはメール本文の Content-Type をチェックしているわけではなく、そのキャリアの場合このエンコーディングで送ってくるだろうというものを返しているだけである点に留意してください。また、DoCoMo や SoftBank からの場合絵文字は最初からゲタになり取れないため普通の iso-2022-jp を返します。

各メソッドが返すエンコーディングは以下のとおりです。（返すのは文字列ではなく the Encode::Encoding manpage です）

             mime_encoding                   send_encoding     parse_encoding
  ------------------------------------------------------------------------------------
  DoCoMo     MIME-Header-JP-Mobile-DoCoMo    x-sjis-docomo     iso-2022-jp
  au         MIME-Header-JP-Mobile-KDDI      x-sjis-kddi-auto  x-iso-2022-jp-kddi-auto
  SoftBank   MIME-Header-JP-Mobile-SoftBank  x-utf8-softbank   iso-2022-jp
  WILLCOM    MIME-Header-JP-Mobile-AirH      x-sjis-airh       x-iso-2022-jp-airh
  NonMobile  MIME-Header-ISO_2022_JP         iso-2022-jp       iso-2022-jp

MIME-Header-JP-Mobile-* や x-* のエンコーディングは the Encode::JP::Mobile manpage が提供するエンコーディングです。

SEE ALSO

the Email::Address::Loose manpage, the Mail::Address::MobileJp manpage, the Encode::JP::Mobile manpage

http://coderepos.org/share/wiki/Mobile/Encoding

#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.

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