blob: 16fbf92a6db3d4e5b0fcb0769bc92f4065d8678e (
plain) (
blame)
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
87
88
89
90
91
92
93
|
package dancerREST;
use Dancer ':syntax';
my %users = ();
get '/' => sub {
template "index.tt";
};
# return a list of users
# curl -H "Content-Type: application/json" http://localhost:5000/api/user/
# => [{"name":"foo","id":"1"}]
get '/api/user/' => sub {
my @users;
push @users, { name => $users{$_}->{name}, id => $_ } foreach keys %users;
return \@users;
};
# return a specific user
# curl -H "Content-Type: application/json" http://localhost:5000/api/user/1
# => {"name":"foo"}
get '/api/user/:id' => sub {
my $params = request->params;
if ( exists $users{ $params->{id} } ) {
return $users{$params->{id}};
}
else {
return { error => "unknown user" };
}
};
# create a new user
# curl -H "Content-Type: application/json" -X POST http://localhost:5000/api/user/ -d '{"name":"foo","id":1}'
# => {"name":"foo","id":"1"}
post '/api/user/' => sub {
my $params = request->params;
if ( $params->{name} && $params->{id} ) {
if ( exists $users{ $params->{id} } ) {
return { error => "user already exists" };
}
$users{$params->{id}} = {name => $params->{name}};
return { id => $params->{id}, name => $params->{name} };
}
else {
return { error => "name is missing" };
}
};
# delete a user
# curl -H "Content-Type: application/json" -X DELETE http://localhost:5000/api/user/1
# {"deleted":1}
del '/api/user/:id' => sub {
my $params = request->params;
if ( $params->{id} ) {
if ( exists $users{ $params->{id} } ) {
delete $users{ $params->{id} };
return { deleted => 1 };
}
else {
return { error => "unknown user" };
}
}
else {
return { error => "user id is missing" };
}
};
# curl http://localhost:5000/user/1
# or
# curl -H "X-Requested-With: XMLHttpRequest" http://localhost:5000/user/1
get '/user/:id' => sub {
my $params = request->params;
my $user = $users{ $params->{id} };
my $result;
if ( !$user ) {
_render_user( { error => "unknown user" } );
}
else {
_render_user($user);
}
};
sub _render_user {
my $result = shift;
if ( request->is_ajax ) {
return $result;
}
else {
template 'user.tt', $result;
}
}
true;
|
