Commits

Anonymous committed b90bf58

Fix mojjy.pl for recent Mojo versions.

Comments (0)

Files changed (5)

Test-WWW-Mechanize-Mojo/Build.PL

         'Mojolicious::Lite' => 0,
         'strict' => 0,
         'Test::WWW::Mechanize'                     => '1.14',
+        'utf8' => 0,
         'warnings' => 0,
         'WWW::Mechanize'                           => '1.50',
     },

Test-WWW-Mechanize-Mojo/CHANGES

 Revision history for Perl module Test::WWW::Mechanize::Mojo :
 
+v0.0.6      Fri Sep  3 20:43:26 IDT 2010
+    - Fixed mojjy.pl to avoid double encoding in recent Mojo versions.
+
 v0.0.5      Mon Jun 14 21:54:45 IDT 2010
     - Removed the call to Test::Mojo->redirect() which is no longer
     implemented in recent Mojos.

Test-WWW-Mechanize-Mojo/META.yml

   WWW::Mechanize: 1.50
   base: 0
   strict: 0
+  utf8: 0
   warnings: 0
 resources:
   homepage: http://web-cpan.berlios.de/modules/Test-WWW-Mechanize-Mojo/

Test-WWW-Mechanize-Mojo/Makefile.PL

                            'WWW::Mechanize' => '1.50',
                            'base' => 0,
                            'strict' => 0,
+                           'utf8' => 0,
                            'warnings' => 0
                          },
           'INSTALLDIRS' => 'site',

Test-WWW-Mechanize-Mojo/t/lib/mojjy.pl

 use Encode qw//;
 use Cwd;
 
+use utf8;
+
 sub html {
     my ( $title, $body ) = @_;
     return qq{
 get '/hello' => sub {
     my $self = shift;
 
-    my $str = Encode::encode('utf-8', "\x{263A}"); # ☺
-    my $html = html( "Hello", "Hi there! $str" );
+    my $html = html( "Hello", "Hi there! ☺" ); # ☺
     $self->res->headers->content_type("text/html; charset=utf-8");
     $self->render_text($html);