t/lib/TestApp/Controller/Action.pm

   1 package TestApp::Controller::Action;
   2
   3 use strict;
   4 use base 'Catalyst::Base';
   5
   6 sub begin : Private {
   7     my ( $self, $c ) = @_;
   8     $c->res->header( 'X-Test-Class'  => ref($self) );
   9     $c->response->content_type('text/plain; charset=utf-8');
  10
  11     return 1;
  12 }
  13
  14 sub default : Private {
  15     my ( $self, $c ) = @_;
  16     $c->res->output("Error - TestApp::Controller::Action\n");
  17 }
  18
  19 1;