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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
package TestApp;
use Dancer;
use Data::Dumper;
use LinkBlocker;
block_links_from "www.foo.com";
get '/' => sub { "Hello, this is the home" };
get '/hash' => sub { { a => 1, b => 2, c => 3} };
get '/with_headers' => sub {
header 'X-Foo-Dancer' => 42;
1;
};
get '/headers_again' => sub { request->header('X-Foo-Dancer') };
get '/test_app_setting' => sub {
return {
onlyroot => setting('onlyroot'),
foo => setting('foo'),
onlyapp => setting('onlyapp')
};
};
get '/name/:name' => sub {
"Your name: ".params->{name}
};
post '/params/:var' => sub {
Dumper({
params => scalar(params),
route => { params('route') },
query => { params('query') },
body => { params('body') }
});
};
post '/name' => sub {
"Your name: ".params->{name}
};
get '/env' => sub { Dumper(Dancer::SharedData->request) };
get '/cookies' => sub { Dumper(cookies()) };
get '/set_cookie/*/*' => sub {
my ($name, $value) = splat;
set_cookie $name => $value;
};
get '/set_session/*' => sub {
my ($name) = splat;
session name => $name;
};
get '/read_session' => sub {
my $name = session('name') || '';
"name='$name'"
};
any['put','post'] => '/jsondata' => sub {
request->body;
};
post '/form' => sub {
params->{foo};
};
get '/unicode' => sub {
"cyrillic shcha \x{0429}",
};
get '/forward_to_unavailable_route' => sub {
forward "/some_route_that_does_not_exist"
};
get '/issues/499/true' => sub {
"OK" if system('true') == 0
};
get '/issues/499/false' => sub {
"OK" if system('false') != 0
};
true;
|
