t/live/lib/TestApp/Controller/Engine/Response/Headers.pm

   1 package TestApp::Controller::Engine::Response::Headers;
   2
   3 use strict;
   4 use base 'Catalyst::Base';
   5
   6 sub one : Relative {
   7     my ( $self, $c ) = @_;
   8     $c->res->header( 'X-Header-Catalyst' => 'Cool' );
   9     $c->res->header( 'X-Header-Cool'     => 'Catalyst' );
  10     $c->res->header( 'X-Header-Numbers'  => join ', ', 1 .. 10 );
  11     $c->forward('TestApp::View::Dump::Request');
  12 }
  13
  14 1;