W32H cannot display &#xXXXX; f*cking..

git-svn-id: http://svn.coderepos.org/share/lang/perl/HTML-Entities-ConvertPictogramMobileJp/trunk@5450 d0d07461-0603-4401-acd4-de1884942a52

lib/HTML/Entities/ConvertPictogramMobileJp.pm

@@ -4,6 +4,7 @@ use warnings;
 our $VERSION = '0.03';
 use Encode;
 use Encode::JP::Mobile;
+use Encode::JP::Mobile::Character;
 use Params::Validate;
 use base 'Exporter';
 our @EXPORT = qw/convert_pictogram_entities/;
@@ -21,8 +22,12 @@ sub convert_pictogram_entities {
         if ($agent->is_softbank) {
             _convert_unicode('softbank', $2)
         } elsif ($agent->is_ezweb) {
-            join '', map { sprintf( '&#x%X;', unpack( 'U*', $_ ) ) } split //,
-              decode "x-sjis-kddi-cp932-raw", encode( "x-sjis-kddi-auto", chr( hex $2 ) );
+            join '', map {
+                sprintf '<img localsrc="%d" />',
+                  Encode::JP::Mobile::Character->from_unicode( unpack 'U*', $_ )->number
+              }
+              split //, decode "x-sjis-kddi-auto-raw",
+              encode( "x-sjis-kddi-auto", chr( hex $2 ) );
         } elsif ($agent->is_docomo && $agent->is_foma) {
             _convert_unicode('docomo', $2)
         } elsif (($agent->is_docomo && !$agent->is_foma) || $agent->is_airh_phone) {

t/01_simple.t

@@ -29,7 +29,7 @@ html: ""
 --- input
 user_agent: KDDI-SA31 UP.Browser/6.2.0.7.3.129 (GUI) MMP/2.0
 html: ""
---- expected: 
+--- expected: <img localsrc="44" /><img localsrc="341" />
 
 === i2i(foma)
 --- input
@@ -53,7 +53,7 @@ html: "&#xE63E;&#xE65C;"
 --- input
 user_agent: KDDI-SA31 UP.Browser/6.2.0.7.3.129 (GUI) MMP/2.0
 html: "&#xE722;"
---- expected: &#xE471;&#xE5B1;
+--- expected: <img localsrc="257" /><img localsrc="330" />
 
 === i2v, pair
 --- input