Commit | Line | Data |
55046410 |
1 | package TestAppUnicode; |
2 | use strict; |
3 | use warnings; |
4 | use TestLogger; |
5 | use base qw/Catalyst/; |
6 | use Catalyst qw/Unicode::Encoding Params::Nested/; |
7 | |
8 | __PACKAGE__->config( |
9 | encoding => $ENV{TESTAPP_ENCODING} |
10 | ) if $ENV{TESTAPP_ENCODING}; |
11 | |
12 | __PACKAGE__->config('name' => 'TestAppUnicode'); |
13 | |
14 | __PACKAGE__->log(TestLogger->new); |
15 | |
16 | __PACKAGE__->setup; |
17 | |
18 | sub handle_unicode_encoding_exception { |
19 | my ( $self, $param_value, $error_msg ) = @_; |
20 | return $param_value; |
21 | } |
22 | |
23 | 1; |