Initial support for :Args attribute

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

diff --git a/t/lib/TestApp/Controller/Action.pm b/t/lib/TestApp/Controller/Action.pm
index 02bd50a..543d6e1 100644 (file)
--- a/t/lib/TestApp/Controller/Action.pm
+++ b/t/lib/TestApp/Controller/Action.pm
@@ -12,6 +12,7 @@ sub begin : Private {
 sub default : Private {
     my ( $self, $c ) = @_;
     $c->res->output("Error - TestApp::Controller::Action\n");
+    $c->res->status(404);
 }
 
 1;