t/live/lib/TestApp/Controller/Action/Multipath.pm

   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;