Commit | Line | Data |
---|---|---|
dd4e6fd2 | 1 | package TestApp::Controller::Engine::Response::Headers; |
2 | ||
3 | use strict; | |
c057ae86 | 4 | use base 'Catalyst::Controller'; |
dd4e6fd2 | 5 | |
6 | sub one : Relative { | |
7 | my ( $self, $c ) = @_; | |
fbcc39ad | 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 ); | |
dd4e6fd2 | 11 | $c->forward('TestApp::View::Dump::Request'); |
12 | } | |
13 | ||
14 | 1; |