t/lib/TestApp/Controller/Action/TestRelative.pm

   1 package TestApp::Controller::Action::TestRelative;
   2
   3 use strict;
   4 use base 'TestApp::Controller::Action';
   5
   6 __PACKAGE__->config(
   7   path => 'action/relative'
   8 );
   9
  10 sub relative : Local {
  11     my ( $self, $c ) = @_;
  12     $c->forward('/action/forward/one');
  13 }
  14
  15 sub relative_two : Local {
  16     my ( $self, $c ) = @_;
  17     $c->forward( 'TestApp::Controller::Action::Forward', 'one' );
  18 }
  19
  20 sub relative_go : Local {
  21     my ( $self, $c ) = @_;
  22     $c->go('/action/go/one');
  23 }
  24
  25 sub relative_go_two : Local {
  26     my ( $self, $c ) = @_;
  27     $c->go( 'TestApp::Controller::Action::Go', 'one' );
  28 }
  29 1;