Commit | Line | Data |
---|---|---|
55046410 | 1 | package TestApp2; |
2 | use strict; | |
3 | use warnings; | |
4 | use base qw/Catalyst/; | |
5 | use Catalyst qw/Params::Nested/; | |
6 | ||
7 | __PACKAGE__->config( | |
43ef8051 | 8 | 'name' => 'TestApp2', |
9 | encoding => 'UTF-8', | |
1bef5f59 | 10 | ); |
55046410 | 11 | |
55046410 | 12 | __PACKAGE__->setup; |
13 | ||
14 | sub handle_unicode_encoding_exception { | |
15 | my ( $self, $param_value, $error_msg ) = @_; | |
16 | return $param_value; | |
17 | } | |
18 | ||
19 | 1; |