Changeset 5609

Timestamp:

01/27/08 11:24:49 (5 years ago)

Author:

tokuhirom

Message:

do not use svn HEAD of Encode-JP-Mobile.

Location:

lang/perl/HTML-Entities-ConvertPictogramMobileJp/trunk

Files:

• Makefile.PL (modified) (1 diff)
• lib/HTML/Entities/ConvertPictogramMobileJp (added)
• lib/HTML/Entities/ConvertPictogramMobileJp.pm (modified) (3 diffs)
• lib/HTML/Entities/ConvertPictogramMobileJp/KDDITABLE.pm (added)
• tools (added)
• tools/make_kddi_table.pl (added)

lang/perl/HTML-Entities-ConvertPictogramMobileJp/trunk/Makefile.PL

@@ -10 +10 @@
 build_requires 'YAML';
 use_test_base;
+install_share;
 auto_include;
 WriteAll;

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

@@ -5 +5 @@
 use Encode;
 use Encode::JP::Mobile;
-use Encode::JP::Mobile::Character;
 use Params::Validate;
+use HTML::Entities::ConvertPictogramMobileJp::KDDITABLE;
+use File::ShareDir qw/dist_file/;
 use base 'Exporter';
 our @EXPORT = qw/convert_pictogram_entities/;
@@ -24 +25 @@
         } elsif ($agent->is_ezweb) {
             join '', map { sprintf '<img localsrc="%d" />', $_ }
-              map { Encode::JP::Mobile::Character->from_unicode($_)->number }
+              map { _ezuni2number($_) }
               map { unpack 'U*', $_ }
               split //, decode "x-utf8-kddi",
@@ -37 +38 @@
     }ge;
     $content;
+}
+
+sub _ezuni2number {
+    my $unicode = shift;
+    $HTML::Entities::ConvertPictogramMobileJp::KDDITABLE::TABLE->{$unicode};
 }