[catagits/Catalyst-Runtime.git] / t / lib / TestApp2.pm

package TestApp2;
use strict;
use warnings;
use base qw/Catalyst/;
use Catalyst qw/Params::Nested/;

__PACKAGE__->config(
  encoding => $ENV{TESTAPP_ENCODING}
) if $ENV{TESTAPP_ENCODING};

__PACKAGE__->config('name' => 'TestApp2');

__PACKAGE__->setup;

sub handle_unicode_encoding_exception {
  my ( $self, $param_value, $error_msg ) = @_;
  return $param_value;
}

1;
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(
	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;