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

package TestCGIBin::Controller::CGIHandler;

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

sub cgi_path {
    my ($self, $cgi) = @_;
    return "my-bin/$cgi";
}

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

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

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