[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(
  'name' => 'TestApp2',
  encoding => 'UTF-8',
);

__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(
43ef8051	8	'name' => 'TestApp2',
43ef8051	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;