Commit | Line | Data |
---|---|---|
55046410 | 1 | package TestAppUnicode; |
2 | use strict; | |
3 | use warnings; | |
4 | use TestLogger; | |
5 | use base qw/Catalyst/; | |
6adc45cf | 6 | use Catalyst; |
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; |