t/lib/TestApp.pm

   1 package TestApp;
   2
   3 use Catalyst qw[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 subtest_params : Global {
  29         my ( $self, $c ) = @_;
  30         my $before = $c->req->params->{value};
  31         my $subreq = $c->subreq('/normal/2');
  32         my $after = $c->req->params->{value};
  33         $c->res->body($c->res->body().$after);
  34     }
  35
  36     sub end : Private {
  37         my ( $self, $c ) = @_;
  38         $c->res->body($c->res->body().'3');
  39     }
  40
  41
  42 1;