Changeset 37607 for lang/perl/Email-Address-JP-Mobile
- Timestamp:
- 05/18/10 11:42:21 (3 years ago)
- Location:
- lang/perl/Email-Address-JP-Mobile/trunk
- Files:
-
- 3 modified
-
Changes (modified) (1 diff)
-
Makefile.PL (modified) (1 diff)
-
lib/Email/Address/JP/Mobile.pm (modified) (10 diffs)
Legend:
- Unmodified
- Added
- Removed
-
lang/perl/Email-Address-JP-Mobile/trunk/Changes
r37599 r37607 1 1 Revision history for Perl extension Email::Address::JP::Mobile 2 2 3 0.03 Mon May 17 18:33:39 JST 2010 3 0.04 Tue May 18 11:19:27 JST 2010 4 - add mime_encoding(), send_encoding(), perse_encoding() 4 5 - requires Test::More 0.94 for subtest() 5 6 http://www.cpantesters.org/cpan/report/7141684 -
lang/perl/Email-Address-JP-Mobile/trunk/Makefile.PL
r37599 r37607 7 7 requires 'Email::Address::Loose'; 8 8 requires 'Encode'; 9 requires 'Encode::JP::Mobile' => 0.27; 9 requires 'Encode::JP::Mobile' => 0.27; # mime encodings 10 10 11 11 test_requires 'Test::More' => 0.94; # subtest -
lang/perl/Email-Address-JP-Mobile/trunk/lib/Email/Address/JP/Mobile.pm
r37599 r37607 3 3 use warnings; 4 4 use 5.008000; 5 our $VERSION = '0.0 3';5 our $VERSION = '0.04'; 6 6 use Email::Address::Loose; 7 7 … … 59 59 $subject = $carrier->mime_encoding->encode($subject); 60 60 61 or 61 or, via Email::Address object 62 62 63 63 use Email::Address::Loose; … … 65 65 66 66 my ($email) = Email::Address::Loose->parse('docomo.taro.@docomo.ne.jp'); 67 # $email is a Email::Address object 67 68 $email->carrier->is_mobile; # => true 68 69 … … 78 79 インターフェースである点が違います。 79 80 80 =head1 METHODS81 =head1 USAGE 81 82 82 83 =over 4 … … 92 93 $carrier->carrier_letter; # => "I" 93 94 94 携帯 メアドではない場合は Email::Address::JP::Mobile::NonMobile クラスを返します。95 携帯のメールアドレスではないと判断した場合は Email::Address::JP::Mobile::NonMobile クラスを返します。 95 96 96 97 =item $carrier = $email->carrier() 98 99 Email::Address::JP::Mobile は L<Email::Address> オブジェクトに、対応したクラスを返す 100 C<carrier()> というメソッドを拡張します。 97 101 98 102 use Email::Address; … … 100 104 my ($email) = Email::Address->parse('docomo.taro@docomo.ne.jp'); 101 105 $email->carrier->carrier_letter; # "I" 102 103 Email::Address::JP::Mobile は L<Email::Address> オブジェクトに、対応したクラスを返す104 C<carrier()> というメソッドを拡張します。105 106 106 107 ご存知のように日本の携帯は変なアドレスが許可されている期間が長かったので、 … … 110 111 =back 111 112 112 =head1 EMAILCLASS METHODS113 =head1 CARRIER CLASS METHODS 113 114 114 115 =over 4 … … 135 136 $subject = $carrier->mime_encoding->decode($subject); 136 137 137 そのキャリア向けにメールを送信する際、絵文字を含んだ Subject などを MIME encode するためのエンコーディングを返します。138 そのキャリア向けにメールを送信する際、絵文字を含んだ Subject を MIME encode するためのエンコーディングを返します。何を返すかは下記の表を参照してください。 138 139 139 そのキャリア から受け取ったメールの Subject などを MIME decode するためにも利用できます。ただし DoCoMo や SoftBank からの場合絵文字は最初からゲタになり取れないため通常の C<MIME-Header-ISO_2022_JP> 扱いとなります。140 そのキャリアの端末から受信したメールの Subject を MIME decode するためにも利用できます。ただし DoCoMo や SoftBank からの場合絵文字は最初からゲタになり取れないため通常の C<MIME-Header-ISO_2022_JP> 扱いとなります。 140 141 141 142 =item $carrier->send_encoding() … … 149 150 $body = $carrier->parse_encoding->decode($body); 150 151 151 そのキャリアから受 け取ったメールの絵文字を含んだメール本文を decode するためのオススメなエンコーディングを返します。これはメール本文の C<Content-Type> をチェックしているわけではなく、そのキャリアの場合このエンコーディングで送ってくるだろうというものを返しているだけである点に留意してください。また、DoCoMo や SoftBank からの場合絵文字は最初からゲタになり取れないため普通の C<iso-2022-jp> を返します。152 そのキャリアから受信したメールの絵文字を含んだメール本文を decode するためのオススメなエンコーディングを返します。これはメール本文の C<Content-Type> をチェックしているわけではなく、そのキャリアの場合このエンコーディングで送ってくるだろうというものを返しているだけである点に留意してください。また、DoCoMo や SoftBank からの場合絵文字は最初からゲタになり取れないため普通の C<iso-2022-jp> を返します。 152 153 153 各メソッドが返すエンコーディングは以下のとおりです。(返すのは文字列ではなく L<Encode::Encoding> です)154 上記の各メソッドが返すエンコーディングは以下のとおりです。(返すのは文字列ではなく L<Encode::Encoding> です) 154 155 155 156 mime_encoding send_encoding parse_encoding … … 161 162 NonMobile MIME-Header-ISO_2022_JP iso-2022-jp iso-2022-jp 162 163 163 MIME-Header-JP-Mobile-* や x-* のエンコーディングは L<Encode::JP::Mobile> が提供するエンコーディングです。164 MIME-Header-JP-Mobile-* や x-* のエンコーディングは L<Encode::JP::Mobile> (0.27以降)が提供するエンコーディングです。 164 165 165 166 =back
![(please configure the [header_logo] section in trac.ini)](/share/chrome/site/your_project_logo.png)