[catagits/Catalyst-Runtime.git] / t / lib / TestAppWithoutUnicode / Controller / Root.pm

package TestAppWithoutUnicode::Controller::Root;

use Moose;
BEGIN { extends 'Catalyst::Controller' }
use Encode qw(encode_utf8 decode_utf8);

__PACKAGE__->config( namespace => q{} );

sub default : Private {
    my ( $self, $c ) = @_;
    my $param = decode_utf8($c->request->parameters->{'myparam'});
    $c->response->body( encode_utf8($param) );
}

__PACKAGE__->meta->make_immutable;

1;
Commit	Line	Data
4fb27043	1	package TestAppWithoutUnicode::Controller::Root;
	2
	3	use Moose;
	4	BEGIN { extends 'Catalyst::Controller' }
	5	use Encode qw(encode_utf8 decode_utf8);
	6
	7	__PACKAGE__->config( namespace => q{} );
	8
	9	sub default : Private {
	10	my ( $self, $c ) = @_;
	11	my $param = decode_utf8($c->request->parameters->{'myparam'});
	12	$c->response->body( encode_utf8($param) );
	13	}
	14
	15	__PACKAGE__->meta->make_immutable;
	16
	17	1;