[catagits/Catalyst-Runtime.git] / t / lib / TestApp / Controller / Action / Multipath.pm

package TestApp::Controller::Action::Multipath;

use strict;
use base 'TestApp::Controller::Action';

sub multipath : Local : Global : Path('/multipath1') : Path('multipath2') {
    my ( $self, $c ) = @_;
    for my $line ( split "\n", <<'EOF' ) {
foo
bar
baz
EOF
        $c->res->write("$line\n");
    }
}

1;
Commit	Line	Data
749472d6	1	package TestApp::Controller::Action::Multipath;
	2
	3	use strict;
	4	use base 'TestApp::Controller::Action';
	5
	6	sub multipath : Local : Global : Path('/multipath1') : Path('multipath2') {
	7	my ( $self, $c ) = @_;
	8	for my $line ( split "\n", <<'EOF' ) {
	9	foo
	10	bar
	11	baz
	12	EOF
	13	$c->res->write("$line\n");
	14	}
	15	}
	16
	17	1;