t/lib/TestApp2.pm

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