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