Commit | Line | Data |
dd4e6fd2 |
1 | package TestApp::Controller::Engine::Response::Cookies; |
2 | |
3 | use strict; |
c057ae86 |
4 | use base 'Catalyst::Controller'; |
dd4e6fd2 |
5 | |
2832cb5d |
6 | sub one : Local { |
dd4e6fd2 |
7 | my ( $self, $c ) = @_; |
b7ded0bd |
8 | $c->res->cookies->{catalyst} = { value => 'cool', path => '/bah' }; |
9 | $c->res->cookies->{cool} = { value => 'catalyst', path => '/' }; |
dd4e6fd2 |
10 | $c->forward('TestApp::View::Dump::Request'); |
11 | } |
12 | |
2832cb5d |
13 | sub two : Local { |
dd4e6fd2 |
14 | my ( $self, $c ) = @_; |
b7ded0bd |
15 | $c->res->cookies->{catalyst} = { value => 'cool', path => '/bah' }; |
16 | $c->res->cookies->{cool} = { value => 'catalyst', path => '/' }; |
dd4e6fd2 |
17 | $c->res->redirect('http://www.google.com/'); |
18 | } |
19 | |
2832cb5d |
20 | sub three : Local { |
21 | my ( $self, $c ) = @_; |
22 | |
23 | $c->res->cookies->{object} = CGI::Simple::Cookie->new( |
24 | -name => "this_is_the_real_name", |
25 | -value => [qw/foo bar/], |
26 | ); |
27 | |
28 | $c->res->cookies->{hash} = { |
29 | value => [qw/a b c/], |
30 | }; |
31 | |
32 | $c->forward('TestApp::View::Dump::Request'); |
33 | } |
34 | |
dd4e6fd2 |
35 | 1; |