t/lib/TestAppUnicode.pm

   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;