Commit | Line | Data |
---|---|---|
4fb27043 | 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; |