t/lib/TestApp/Controller/Root.pm

   1 package TestApp::Controller::Root;
   2
   3 use base 'Catalyst::Controller';
   4
   5 __PACKAGE__->config->{namespace} = '';
   6
   7 sub chain_root_index : Chained('/') PathPart('') Args(0) { }
   8
   9 sub zero : Path('0') {
  10     my ( $self, $c ) = @_;
  11     $c->res->header( 'X-Test-Class' => ref($self) );
  12     $c->response->content_type('text/plain; charset=utf-8');
  13     $c->forward('TestApp::View::Dump::Request');
  14 }
  15
  16 sub localregex : LocalRegex('^localregex$') {
  17     my ( $self, $c ) = @_;
  18     $c->res->header( 'X-Test-Class' => ref($self) );
  19     $c->response->content_type('text/plain; charset=utf-8');
  20     $c->forward('TestApp::View::Dump::Request');
  21 }
  22
  23 sub index : Private {
  24     my ( $self, $c ) = @_;
  25     $c->res->body('root index');
  26 }
  27
  28 sub global_action : Private {
  29     my ( $self, $c ) = @_;
  30     $c->forward('TestApp::View::Dump::Request');
  31 }
  32
  33 sub class_forward_test_method :Private {
  34     my ( $self, $c ) = @_;
  35     $c->response->headers->header( 'X-Class-Forward-Test-Method' => 1 );
  36 }
  37
  38 sub loop_test : Local {
  39     my ( $self, $c ) = @_;
  40
  41     for( 1..1001 ) {
  42         $c->forward( 'class_forward_test_method' );
  43     }
  44 }
  45
  46 sub recursion_test : Local {
  47     my ( $self, $c ) = @_;
  48     $c->forward( 'recursion_test' );
  49 }
  50
  51 sub end : Private {
  52     my ($self,$c) = @_;
  53 }
  54
  55 1;