r12983@zaphod: kd | 2008-04-28 18:10:27 +1000

[catagits/Catalyst-Runtime.git] / t / lib / TestApp / Controller / Action / TestRelative.pm

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;