Changeset 1608 for lang/perl/Encode-JP-Mobile/branches

Timestamp:

11/16/07 08:28:37 (6 years ago)

Author:

tomi-ru

Message:

add custom fb sample and test.

Location:

lang/perl/Encode-JP-Mobile/branches/feature-convert-pictogram

Files:

• lib/Encode/JP/Mobile.pm (modified) (2 diffs)
• lib/Encode/JP/Mobile/UTF8.pm (modified) (3 diffs)
• t/emoji_convert_utf8_fb.t (modified) (2 diffs)

lang/perl/Encode-JP-Mobile/branches/feature-convert-pictogram/lib/Encode/JP/Mobile.pm

@@ -8 +8 @@
 use base qw( Exporter );
 BEGIN {
-    @EXPORT_OK = qw( InDoCoMoPictograms InKDDIPictograms InSoftBankPictograms InAirEdgePictograms );
+    @EXPORT_OK = qw( InDoCoMoPictograms InKDDIPictograms InSoftBankPictograms InAirEdgePictograms InMobileJPPictograms );
     %EXPORT_TAGS = ( props => [@EXPORT_OK] );
 }
@@ -80 +80 @@
 }
 
+sub InMobileJPPictograms {
+    return <<'END';
++Encode::JP::Mobile::InDoCoMoPictograms
++Encode::JP::Mobile::InKDDIPictograms
++Encode::JP::Mobile::InSoftBankPictograms
++Encode::JP::Mobile::InAirEdgePictograms 
+END
+}
+
 1;
 __END__

lang/perl/Encode-JP-Mobile/branches/feature-convert-pictogram/lib/Encode/JP/Mobile/UTF8.pm

@@ -2 +2 @@
 use strict;
 use warnings;
-use Encode::JP::Mobile ':props';
 use Encode::Alias;
 
@@ -29 +28 @@
             my $code = chr shift;
 
-            if ( $check && $code =~ /\p{InDoCoMoPictograms}|\p{InSoftBankPictograms}|\p{InKDDIPictograms}|\p{InAirEdgePictograms}/ ) {
+            if ( $check && $code =~ /\p{Encode::JP::Mobile::InMobileJPPictograms}/ ) {
                 Encode::encode( "x-utf8-${carrier}-pictogram", $code, $check );
             }
@@ -42 +41 @@
 
 1;
+__END__
+
+=head1 NAME
+
+Encode::JP::Mobile::UTF8 - Pictogram characters conversion based on UTF-8
+
+=head1 SYNOPSIS
+
+    use Encode::JP::Mobile;
+    
+    # KDDI sunny mark post-ed from charset=utf-8 page.
+    my $text = "\xEE\xBD\xA0";
+    $text = decode('utf-8', $text);
+    
+    print encode('x-utf8-docomo', $text); # DoCoMo sunny mark (\xEE\x98\xBE)
+    print encode('x-utf8-softbank', $text); # Softbank sunny mark (\xEE\x81\x8A)
+    
+    # Softbank sunny mark and "It's here" mark post-ed from charset=utf-8 page.
+    # KDDI doesn't have the mark corresponding to "It's here". 
+    my $text = "\xEE\x81\x8A\xEE\x90\xA8";
+    print encode('x-utf8-kddi', $text, sub { '〓' }); # "It's here" to "GETA"
+
+=head1 AUTHOR
+
+Naoki Tomita, Tokuhiro Matsuno
+
+=head1 SEE ALSO
+
+L<Encode::JP::Mobile>
+

lang/perl/Encode-JP-Mobile/branches/feature-convert-pictogram/t/emoji_convert_utf8_fb.t

@@ -5 +5 @@
 use Encode qw(:fallback_all);
 
-plan tests => 3;
+plan tests => 3 + 2;
 
 is encode('x-utf8-kddi', "\x{E652}", FB_XMLCREF), '', 'xmlcref fallback kddi';
@@ -11 +11 @@
 is encode('x-utf8-docomo', "\x{E538}", FB_XMLCREF), '', 'xmlcref fallback docomo';
 
+is encode('x-utf8-kddi', "\x{E04A}\x{E428}", sub { sprintf '<%X>', shift }), "\xEE\xBD\xA0<E428>";
+is encode('x-utf8-kddi', "\x{E04A}\x{E428}", sub { '&#x3013;' }), "\xEE\xBD\xA0&#x3013;";