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

package TestCGIBin::Controller::CGIHandler;

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

# try out a forward
sub dongs : Local Args(0) {
    my ($self, $c) = @_;
    $c->forward('/cgihandler/CGI_test_pl');
}

# try resolved forward
sub mtfnpy : Local Args(0) {
    my ($self, $c) = @_;
    $c->forward($self->cgi_action('test.pl'));
}

1;
Commit	Line	Data
21a20b7e	1	package TestCGIBin::Controller::CGIHandler;
	2
	3	use parent 'Catalyst::Controller::CGIBin';
	4
	5	# try out a forward
	6	sub dongs : Local Args(0) {
	7	my ($self, $c) = @_;
	8	$c->forward('/cgihandler/CGI_test_pl');
	9	}
	10
	11	# try resolved forward
	12	sub mtfnpy : Local Args(0) {
	13	my ($self, $c) = @_;
	14	$c->forward($self->cgi_action('test.pl'));
	15	}
	16
	17	1;