Commit | Line | Data |
dd4e6fd2 |
1 | package TestApp::Controller::Engine::Response::Cookies; |
2 | |
3 | use strict; |
4 | use base 'Catalyst::Base'; |
5 | |
6 | sub one : Relative { |
7 | my ( $self, $c ) = @_; |
8 | $c->res->cookies->{Catalyst} = { value => 'Cool', path => '/' }; |
9 | $c->res->cookies->{Cool} = { value => 'Catalyst', path => '/' }; |
10 | $c->forward('TestApp::View::Dump::Request'); |
11 | } |
12 | |
13 | sub two : Relative { |
14 | my ( $self, $c ) = @_; |
15 | $c->res->cookies->{Catalyst} = { value => 'Cool', path => '/' }; |
16 | $c->res->cookies->{Cool} = { value => 'Catalyst', path => '/' }; |
17 | $c->res->redirect('http://www.google.com/'); |
18 | } |
19 | |
20 | 1; |