t/lib/TestApp.pm

   1 package TestApp;
   2
   3 use Catalyst qw[-Engine=Test SubRequest];
   4
   5 __PACKAGE__->config(
   6     name=>"subrequest test"
   7 );
   8
   9 __PACKAGE__->setup();
  10
  11     sub begin : Private {
  12         my ( $self, $c ) = @_;
  13         $c->res->body('1');
  14     }
  15
  16     sub subtest : Global {
  17         my ( $self, $c ) = @_;
  18         my $subreq= $c->res->body().
  19                     $c->subreq('/normal/4');
  20         $c->res->body($subreq);
  21     }
  22
  23     sub normal : Global {
  24         my ( $self, $c, $arg ) = @_;
  25         $c->res->body($c->res->body().$arg);
  26     }
  27
  28     sub end : Private {
  29         my ( $self, $c ) = @_;
  30         $c->res->body($c->res->body().'3');
  31     }
  32
  33
  34 1;