Changeset 4865

Timestamp:

01/18/08 14:24:41 (5 years ago)

Author:

miyagawa

Message:

added charname

Location:

lang/perl/autobox-Encode/trunk

Files:

• lib/autobox/Encode.pm (modified) (3 diffs)
• t/01_simple.t (modified) (2 diffs)

lang/perl/autobox-Encode/trunk/lib/autobox/Encode.pm

@@ -1 +1 @@
 package autobox::Encode;
 use strict;
+use charnames ();
 use warnings;
 use autobox;
@@ -12 +13 @@
 sub is_utf8 { Encode::is_utf8($_[0]) }
 sub from_to { Encode::from_to($_[0], $_[1], $_[2]); $_[0] }
+
+sub charname {
+    my $string = shift;
+    join '', map charnames::viacode(ord), split //, $string;
+}
 
 1;
@@ -27 +33 @@
 
   "Foo"->decode('utf-8')->encode('utf-8')
+
+  my $latin1_bytes = ...;
+  my $utf8_bytes   = $latin1_bytes->from_to('latin-1' => 'utf-8');
+
+  "\x{1234}"->charname; # "ETHIOPIC SYLLABLE SEE"
 
 =head1 DESCRIPTION

lang/perl/autobox-Encode/trunk/t/01_simple.t

@@ -4 +4 @@
 use autobox::Encode;
 use Encode ();
-use Test::More tests => 7;
+use Test::More tests => 8;
 
 ok Encode::is_utf8('あいうえお'->decode('utf-8'));
@@ -15 +15 @@
 my $x = 'あいうえお';
 is uc(unpack "H*", $x->from_to('utf-8' => 'euc-jp')), "A4A2A4A4A4A6A4A8A4AA";
+
+is "\x{1234}"->charname, "ETHIOPIC SYLLABLE SEE";