Changeset 5396

Timestamp:

01/24/08 12:59:51 (5 years ago)

Author:

tokuhirom

Message:

you can use pair of the pictograms.

Location:

lang/perl/HTML-Entities-ConvertPictogramMobileJp/trunk

Files:

• lib/HTML/Entities/ConvertPictogramMobileJp.pm (modified) (3 diffs)
• t/01_simple.t (modified) (1 diff)

lang/perl/HTML-Entities-ConvertPictogramMobileJp/trunk/lib/HTML/Entities/ConvertPictogramMobileJp.pm

@@ -2 +2 @@
 use strict;
 use warnings;
-our $VERSION = '0.01';
+our $VERSION = '0.02';
 use Encode;
 use Encode::JP::Mobile;
@@ -22 +22 @@
             _convert_unicode('softbank', $2)
         } elsif ($agent->is_ezweb) {
-            sprintf '&#x%X;', unpack 'U*', decode "x-sjis-kddi-cp932-raw", encode( "x-sjis-kddi-auto", chr( hex $2 ));
+            join '', map { sprintf( '&#x%X;', unpack( 'U*', $_ ) ) } split //,
+              decode "x-sjis-kddi-cp932-raw", encode( "x-sjis-kddi-auto", chr( hex $2 ) );
         } elsif ($agent->is_docomo && $agent->is_foma) {
             _convert_unicode('docomo', $2)
@@ -36 +37 @@
 sub _convert_unicode {
     my ($carrier, $unihex) = @_;
-    sprintf '&#x%X;', unpack 'U*', decode "x-utf8-$carrier", encode( "x-utf8-$carrier", chr( hex $unihex ));
+    join '', map { sprintf '&#x%X;', unpack 'U*', $_ } split //,
+      decode "x-utf8-$carrier", encode( "x-utf8-$carrier", chr( hex $unihex ) );
 }
 

lang/perl/HTML-Entities-ConvertPictogramMobileJp/trunk/t/01_simple.t

@@ -50 +50 @@
 --- expected: 
 
+=== i2e, pair
+--- input
+user_agent: KDDI-SA31 UP.Browser/6.2.0.7.3.129 (GUI) MMP/2.0
+html: ""
+--- expected: 
+
+=== i2v, pair
+--- input
+user_agent: Vodafone/1.0/V904SH/SHJ001/SN123456789012 Browser/VF-NetFront/3.3 Profile/MIDP-2.0 Configuration/CLDC-1.1
+html: ""
+--- expected: 