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

Timestamp:

01/24/08 09:08:02 (5 years ago)

Author:

tokuhirom

Message:

added Encode::JP::Mobile::FB_CHARACTER.

Location:

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

Files:

• lib/Encode/JP/Mobile.pm (modified) (2 diffs)
• t/fb_character.t (added)

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

@@ -33 +33 @@
 use Encode::JP::Mobile::KDDIJIS;
 use Encode::JP::Mobile::ConvertPictgramSJIS;
+use Encode::JP::Mobile::Character;
 
 sub InDoCoMoPictograms {
@@ -108 +109 @@
 }
 
+sub FB_CHARACTER {
+    my $u    = shift;
+
+    my $i = 0;
+    while (
+        my @called =
+        do { package DB; @DB::args = (); caller( $i++ ) }
+      )
+    {
+        next if $called[3] ne 'Encode::encode';
+        my $enc = Encode::find_encoding( $DB::args[0] )->name;
+        my ( $charset, $carrier ) = $enc =~ /-([^-]+?)-([^-]+)/;
+
+        my $char = Encode::JP::Mobile::Character->from_unicode($u);
+        return encode( $charset, $char->fallback_name($carrier) );
+    }
+}
 
 1;