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 b745e82..543d6e1 100644 (file)
--- a/t/lib/TestApp/Controller/Action.pm
+++ b/t/lib/TestApp/Controller/Action.pm
@@ -1,17 +1,18 @@
 package TestApp::Controller::Action;
 
 use strict;
-use base 'Catalyst::Base';
+use base 'Catalyst::Controller';
 
 sub begin : Private {
     my ( $self, $c ) = @_;
-    $c->res->header( 'X-Test-Class'  => ref($self) );
+    $c->res->header( 'X-Test-Class' => ref($self) );
     $c->response->content_type('text/plain; charset=utf-8');
 }
 
 sub default : Private {
     my ( $self, $c ) = @_;
     $c->res->output("Error - TestApp::Controller::Action\n");
+    $c->res->status(404);
 }
 
 1;