t/lib/TestAppWithoutUnicode/Controller/Root.pm

   1 package TestAppWithoutUnicode::Controller::Root;
   2
   3 use Moose;
   4 BEGIN { extends 'Catalyst::Controller' }
   5 use Encode qw(encode_utf8 decode_utf8);
   6
   7 __PACKAGE__->config( namespace => q{} );
   8
   9 sub default : Private {
  10     my ( $self, $c ) = @_;
  11     my $param = decode_utf8($c->request->parameters->{'myparam'});
  12     $c->response->body( encode_utf8($param) );
  13 }
  14
  15 __PACKAGE__->meta->make_immutable;
  16
  17 1;