[catagits/Catalyst-Controller-WrapCGI.git] / t / lib / TestCGIBinChainRoot / Controller / CGIHandler.pm

package TestCGIBinChainRoot::Controller::CGIHandler;

use parent 'Catalyst::Controller::CGIBin';

sub chain_root : Chained('/') PathPart('cgi') CaptureArgs(0) {
    my ($self, $c) = @_;

    $c->req->body_parameters->{from_chain} = 'from_chain';
}

1;
Commit	Line	Data
1d40d9c3	1	package TestCGIBinChainRoot::Controller::CGIHandler;
	2
	3	use parent 'Catalyst::Controller::CGIBin';
	4
	5	sub chain_root : Chained('/') PathPart('cgi') CaptureArgs(0) {
	6	my ($self, $c) = @_;
	7
	8	$c->req->body_parameters->{from_chain} = 'from_chain';
	9	}
	10
	11	1;