t/lib/TestApp/Controller/Root.pm

   1 package TestApp::Controller::Root;
   2 use strict;
   3 use warnings;
   4
   5 use base qw/Catalyst::Controller/;
   6
   7 sub begin : Private {
   8     my ( $self, $c ) = @_;
   9     $c->res->body('1');
  10 }
  11
  12 sub subtest : Global {
  13     my ( $self, $c ) = @_;
  14     my $subreq= $c->res->body().
  15                 $c->subreq('/normal/4');
  16     $c->res->body($subreq);
  17 }
  18
  19 sub normal : Global {
  20     my ( $self, $c, $arg ) = @_;
  21     $c->res->body($c->res->body().$arg);
  22 }
  23
  24 sub subtest_params : Global {
  25     my ( $self, $c ) = @_;
  26     my $before = $c->req->params->{value};
  27     my $subreq = $c->subreq('/normal/2');
  28     my $after = $c->req->params->{value};
  29     $c->res->body($c->res->body().$after);
  30 }
  31
  32 sub subtest_req : Global {
  33     my ( $self, $c ) = @_;
  34     my $subreq = $c->subreq('/normal/2');
  35     my $after = $c->req->uri->path;
  36     $c->res->body($after);
  37 }
  38
  39 sub subtest_full_response : Global {
  40     my ( $self, $c ) = @_;
  41     my $subreq_res = $c->subreq_res('/typesetter');
  42     $c->res->body( $c->res->body() . $subreq_res->content_type );
  43 }
  44
  45 sub typesetter : Global {
  46     my ( $self, $c, $arg ) = @_;
  47     $c->res->content_type( 'text/csv' );
  48     $c->res->body($c->res->body());
  49 }
  50
  51 sub end : Private {
  52     my ( $self, $c ) = @_;
  53     $c->res->body($c->res->body().'3');
  54 }
  55
  56 1;
  57