X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Flib%2FTestAppWithoutUnicode%2FController%2FRoot.pm;fp=t%2Flib%2FTestAppWithoutUnicode%2FController%2FRoot.pm;h=4328fb9f7411a8746a26195d729cb7769d92342a;hp=0000000000000000000000000000000000000000;hb=4fb27043578a31f1ffd7498d1097c817a932d173;hpb=43ef80517090ffc0392cfbd980ff4777957fa139

diff --git a/t/lib/TestAppWithoutUnicode/Controller/Root.pm b/t/lib/TestAppWithoutUnicode/Controller/Root.pm
new file mode 100644
index 0000000..4328fb9
--- /dev/null
+++ b/t/lib/TestAppWithoutUnicode/Controller/Root.pm
@@ -0,0 +1,17 @@
+package TestAppWithoutUnicode::Controller::Root;
+
+use Moose;
+BEGIN { extends 'Catalyst::Controller' }
+use Encode qw(encode_utf8 decode_utf8);
+
+__PACKAGE__->config( namespace => q{} );
+
+sub default : Private {
+    my ( $self, $c ) = @_;
+    my $param = decode_utf8($c->request->parameters->{'myparam'});
+    $c->response->body( encode_utf8($param) );
+}
+
+__PACKAGE__->meta->make_immutable;
+
+1;