Changeset 4777 for lang/perl/autobox-Encode

Timestamp:

01/17/08 16:42:14 (5 years ago)

Author:

tokuhirom

Message:

lang/perl/autobox-Encode: added from_to support

Location:

lang/perl/autobox-Encode/trunk

Files:

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

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

@@ -11 +11 @@
 sub decode { Encode::decode($_[1], $_[0], $_[2]) }
 sub is_utf8 { Encode::is_utf8($_[0]) }
+sub from_to { Encode::from_to($_[0], $_[1], $_[2]); $_[0] }
 
 1;

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

@@ -4 +4 @@
 use autobox::Encode;
 use Encode ();
-use Test::More tests => 6;
+use Test::More tests => 7;
 
 ok Encode::is_utf8('あいうえお'->decode('utf-8'));
@@ -13 +13 @@
 ok not 'あいうえお'->is_utf8;
 
+my $x = 'あいうえお';
+is uc(unpack "H*", $x->from_to('utf-8' => 'euc-jp')), "A4A2A4A4A4A6A4A8A4AA";