sub five : Local {
my ( $self, $c ) = @_;
- $c->go('View::Dump::Request');
+ $c->forward('View::Dump::Request');
}
sub inheritance : Local {
sub go_chained : Local {
my ( $self, $c, $val ) = @_;
- $c->go('/action/chained/foo/spoon',[1]);
+ $c->go('/action/chained/foo/spoon', ['captureme'], [qw/arg1 arg2/]);
+}
+
+sub view : Local {
+ my ( $self, $c, $val ) = @_;
+ eval { $c->go('View::Dump') };
+ $c->res->body( $@ ? $@ : "go() did not die" );
+}
+
+sub model : Local {
+ my ( $self, $c, $val ) = @_;
+ eval { $c->go('Model::Foo') };
+ $c->res->body( $@ ? $@ : "go() did not die" );
}
sub args_embed_relative : Local {
sub class_go_test_action : Local {
my ( $self, $c ) = @_;
- $c->go(qw/TestApp class_go_test_method/);
+ $c->go(qw/TestApp/);
}
1;