The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package TestApp::Controller::Action::TestRelative;

use strict;
use base 'TestApp::Controller::Action';

__PACKAGE__->config(
  path => 'action/relative'
);

sub relative : Local {
    my ( $self, $c ) = @_;
    $c->forward('/action/forward/one');
}

sub relative_two : Local {
    my ( $self, $c ) = @_;
    $c->forward( 'TestApp::Controller::Action::Forward', 'one' );
}

sub relative_go : Local {
    my ( $self, $c ) = @_;
    $c->go('/action/go/one');
}

sub relative_go_two : Local {
    my ( $self, $c ) = @_;
    $c->go( 'TestApp::Controller::Action::Go', 'one' );
}
1;