Changeset 5444 for lang/perl/Encode-JP-Mobile

Timestamp:

01/25/08 00:19:56 (5 years ago)

Author:

tokuhirom

Message:

added $char->from_number method.

Location:

lang/perl/Encode-JP-Mobile/branches/character

Files:

• lib/Encode/JP/Mobile/Character.pm (modified) (4 diffs)
• t/character.t (modified) (3 diffs)

lang/perl/Encode-JP-Mobile/branches/character/lib/Encode/JP/Mobile/Character.pm

@@ -11 +11 @@
     my ($class, $unicode) = @_;
     bless {unicode => $unicode}, $class;
+}
+
+sub from_number {
+    my $class = shift;
+    my %args = @_;
+    my $carrier = $args{carrier} or croak "missing carrier";
+    my $number = $args{number} or croak "missing number";
+
+    my $dat = $class->_load_map;
+
+    $carrier = +{I => 'docomo', E => 'kddi', V => 'softbank', 'H' => 'docomo'}->{$carrier};
+    $number = encode_utf8($number);
+
+    my $key = $carrier eq 'kddi' ? 'unicode_auto' : 'unicode';
+    for my $row (@{$dat->{$carrier}}) {
+        if ($row->{number} eq $number) {
+            return $class->from_unicode(hex $row->{$key});
+        }
+    }
+    croak "unknown number: $number for $carrier";
 }
 
@@ -131 +151 @@
 unicode からインスタンスをつくります。
 
+=item from_name
+
+    my $char = Encode::JP::Mobile::Character->from_name(
+        carrier => 'I',
+        number  => "拡76",
+    );
+
+絵文字番号からインスタンスをつくります。
+
 =item name
 
@@ -157 +186 @@
 絵文字番号を得ます。
 
-# docomo はどうするか問題。
+DoCoMo の場合には「拡76」のような文字列が返ってくることに注意してください。
 
 =item carrier
@@ -168 +197 @@
 =back
 
-=head1 TODO
-
-carrier method
-
-performance tuning
-
 =head1 AUTHOR
 

lang/perl/Encode-JP-Mobile/branches/character/t/character.t

@@ -3 +3 @@
 use utf8;
 use Encode::JP::Mobile::Character;
-use Test::More tests => 15;
+use Test::More tests => 18;
 
 # docomo
@@ -22 +22 @@
 }
 
+{
+    is(Encode::JP::Mobile::Character->from_number(carrier => 'I', number => "拡76")->unicode_hex, 'E757');
+}
+
 # KDDI
 {
@@ -30 +34 @@
     is $char->name, "チュー２", "What's name for 0xECA2";
     ok Encode::is_utf8($char->name);
+    is $char->number, 455, 'number';
+}
+
+# KDDI from number.
+{
+    is(Encode::JP::Mobile::Character->from_number(carrier => 'E', number => 455)->unicode_hex, 'ECA2');
 }