Changeset 19128 for lang/perl

Timestamp:

09/10/08 19:17:33 (5 years ago)

Author:

daisuke

Message:

work with utf8 encoded strings, and properly decode them when we find one

Location:

lang/perl/Google-Chart/trunk

Files:

• lib/Google/Chart/Type/QRcode.pm (modified) (2 diffs)
• t/53_qrcode.t (modified) (2 diffs)

lang/perl/Google-Chart/trunk/lib/Google/Chart/Type/QRcode.pm

@@ -4 +4 @@
 use Moose;
 use Moose::Util::TypeConstraints;
+use Encode ();
 
 enum 'Google::Chart::Type::QRcode::Encoding' => qw(shift_jis utf-8 iso-8859-1);
@@ -51 +52 @@
     my $self = shift;
     my %data = (
-        cht => 'qr',
-        chl => $self->text,
+        cht  => 'qr',
+        chl  => Encode::is_utf8($self->text) ?
+            Encode::decode_utf8($self->text) : $self->text,
         choe => $self->encoding,
         chld => $self->eclevel || $self->margin ? 

lang/perl/Google-Chart/trunk/t/53_qrcode.t

@@ -1 +1 @@
 use strict;
-use Test::More (tests => 5);
+use utf8;
+use Test::More (tests => 9);
 use Test::Exception;
 
@@ -27 +28 @@
     my %h = $uri->query_form;
     is( $h{cht}, "qr" );
+}
 
+{
+    my $chart = Google::Chart->new(
+        type => {
+            module => "QRcode",
+            args   => {
+                text => Encode::encode_utf8("諸行無常")
+            }
+        }
+    );
+
+    ok( $chart );
+    isa_ok( $chart, "Google::Chart" );
+
+    isa_ok( $chart->type, "Google::Chart::Type::QRcode" );
+
+    my $uri = $chart->as_uri;
+    diag $uri;
+    my %h = $uri->query_form;
+    is( $h{cht}, "qr" );
 }
+