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

package TestDataHandlers::Controller::Root;

use base 'Catalyst::Controller';

sub test_json :Local {
    my ($self, $c) = @_;
    $c->res->body($c->req->body_data->{message});
}

1;
Commit	Line	Data
e2aa4a21	1	package TestDataHandlers::Controller::Root;
	2
	3	use base 'Catalyst::Controller';
	4
	5	sub test_json :Local {
	6	my ($self, $c) = @_;
	7	$c->res->body($c->req->body_data->{message});
	8	}
	9
	10	1;