1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
package Core::HTTP::ParameterizedBase;
use Moose;
use Magpie::Constants;
extends 'Magpie::Component';
with 'Magpie::Dispatcher::RequestParam' => { state_param => 'xxyy' };
__PACKAGE__->register_events(qw(init cookie headers multicookie redirect redirect_cookie));
sub init {
my $self = shift;
my $ctxt = shift;
$ctxt->{content} = '<p>Howdy</p>';
return OK;
}
sub cookie {
my $self = shift;
my $ctxt = shift;
$self->response->cookies->{name} = 'value';
return OK;
}
sub multicookie {
my $self = shift;
my $ctxt = shift;
$self->response->cookies->{name1} = 'oreo';
$self->response->cookies->{name2} = 'peanutbutter';
return OK;
}
sub headers {
my $self = shift;
my $ctxt = shift;
$self->response->content_type('text/xml');
$self->response->content_encoding('UTF-8');
$self->response->header( 'X-Wibble' => 'text/x-ubu' );
$self->response->header( Bogus => 'arbitrary' );
return OK;
}
sub redirect {
my $self = shift;
my $ctxt = shift;
$self->response->redirect('/imnotthere');
return OK;
}
sub redirect_cookie {
my $self = shift;
my $ctxt = shift;
$self->response->cookies->{name} = 'val';
$self->response->redirect('/imnotthere');
return OK;
}
1;
|
