t/lib/TestApp/Controller/Action/TestMultipath.pm

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