forked from bobtfish/catalyst-action-rest
-
Notifications
You must be signed in to change notification settings - Fork 1
/
README
335 lines (255 loc) · 11.6 KB
/
README
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
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
NAME
Catalyst::Controller::REST - A RESTful controller
VERSION
0.71
SYNOPSIS
package Foo::Controller::Bar;
use base 'Catalyst::Controller::REST';
sub thing : Local : ActionClass('REST') { }
# Answer GET requests to "thing"
sub thing_GET {
my ( $self, $c ) = @_;
# Return a 200 OK, with the data in entity
# serialized in the body
$self->status_ok(
$c,
entity => {
some => 'data',
foo => 'is real bar-y',
},
);
}
# Answer PUT requests to "thing"
sub thing_PUT {
.. some action ..
}
DESCRIPTION
Catalyst::Controller::REST implements a mechanism for building RESTful
services in Catalyst. It does this by extending the normal Catalyst
dispatch mechanism to allow for different subroutines to be called based
on the HTTP Method requested, while also transparently handling all the
serialization/deserialization for you.
This is probably best served by an example. In the above controller, we
have declared a Local Catalyst action on "sub thing", and have used the
ActionClass('REST').
Below, we have declared "thing_GET" and "thing_PUT". Any GET requests to
thing will be dispatched to "thing_GET", while any PUT requests will be
dispatched to "thing_PUT".
Any unimplemented HTTP methods will be met with a "405 Method Not
Allowed" response, automatically containing the proper list of available
methods. You can override this behavior through implementing a custom
"thing_not_implemented" method.
If you do not provide an OPTIONS handler, we will respond to any OPTIONS
requests with a "200 OK", populating the Allowed header automatically.
Any data included in "$c->stash->{'rest'}" will be serialized for you.
The serialization format will be selected based on the content-type of
the incoming request. It is probably easier to use the "STATUS HELPERS",
which are described below.
The HTTP POST, PUT, and OPTIONS methods will all automatically
deserialize the contents of $c->request->body based on the requests
content-type header. A list of understood serialization formats is
below.
If we do not have (or cannot run) a serializer for a given content-type,
a 415 "Unsupported Media Type" error is generated.
To make your Controller RESTful, simply have it
use base 'Catalyst::Controller::REST';
SERIALIZATION
Catalyst::Controller::REST will automatically serialize your responses,
and deserialize any POST, PUT or OPTIONS requests. It evaluates which
serializer to use by mapping a content-type to a Serialization module.
We select the content-type based on:
The Content-Type Header
If the incoming HTTP Request had a Content-Type header set, we will
use it.
The content-type Query Parameter
If this is a GET request, you can supply a content-type query
parameter.
Evaluating the Accept Header
Finally, if the client provided an Accept header, we will evaluate it
and use the best-ranked choice.
AVAILABLE SERIALIZERS
A given serialization mechanism is only available if you have the
underlying modules installed. For example, you can't use XML::Simple if
it's not already installed.
In addition, each serializer has it's quirks in terms of what sorts of
data structures it will properly handle. Catalyst::Controller::REST
makes no attempt to svae you from yourself in this regard. :)
"text/x-yaml" => "YAML::Syck"
Returns YAML generated by YAML::Syck.
"text/html" => "YAML::HTML"
This uses YAML::Syck and URI::Find to generate YAML with all URLs
turned to hyperlinks. Only useable for Serialization.
"text/x-json" => "JSON::Syck"
Uses JSON::Syck to generate JSON output
"text/x-data-dumper" => "Data::Serializer"
Uses the Data::Serializer module to generate Data::Dumper output.
"text/x-data-denter" => "Data::Serializer"
Uses the Data::Serializer module to generate Data::Denter output.
"text/x-data-taxi" => "Data::Serializer"
Uses the Data::Serializer module to generate Data::Taxi output.
"application/x-storable" => "Data::Serializer"
Uses the Data::Serializer module to generate Storable output.
"application/x-freezethaw" => "Data::Serializer"
Uses the Data::Serializer module to generate FreezeThaw output.
"text/x-config-general" => "Data::Serializer"
Uses the Data::Serializer module to generate Config::General output.
"text/x-php-serialization" => "Data::Serializer"
Uses the Data::Serializer module to generate PHP::Serialization
output.
"text/xml" => "XML::Simple"
Uses XML::Simple to generate XML output. This is probably not suitable
for any real heavy XML work. Due to XML::Simples requirement that the
data you serialize be a HASHREF, we transform outgoing data to be in
the form of:
{ data => $yourdata }
View
Uses a regular Catalyst view. For example, if you wanted to have your
"text/html" and "text/xml" views rendered by TT:
'text/html' => [ 'View', 'TT' ],
'text/xml' => [ 'View', 'XML' ],
Will do the trick nicely.
By default, Catalyst::Controller::REST will return a "415 Unsupported
Media Type" response if an attempt to use an unsupported content-type is
made. You can ensure that something is always returned by setting the
"default" config option:
__PACKAGE__->config->{'serialize'}->{'default'} = 'text/x-yaml';
Would make it always fall back to the serializer plugin defined for
text/x-yaml.
Implementing new Serialization formats is easy! Contributions are most
welcome! See Catalyst::Action::Serialize and
Catalyst::Action::Deserialize for more information.
CUSTOM SERIALIZERS
If you would like to implement a custom serializer, you should create
two new modules in the Catalyst::Action::Serialize and
Catalyst::Action::Deserialize namespace. Then assign your new class to
the content-type's you want, and you're done.
STATUS HELPERS
Since so much of REST is in using HTTP, we provide these Status Helpers.
Using them will ensure that you are responding with the proper codes,
headers, and entities.
These helpers try and conform to the HTTP 1.1 Specification. You can
refer to it at: <http://www.w3.org/Protocols/rfc2616/rfc2616.txt>. These
routines are all implemented as regular subroutines, and as such require
you pass the current context ($c) as the first argument.
status_ok
Returns a "200 OK" response. Takes an "entity" to serialize.
Example:
$self->status_ok(
$c,
entity => {
radiohead => "Is a good band!",
}
);
status_created
Returns a "201 CREATED" response. Takes an "entity" to serialize,
and a "location" where the created object can be found.
Example:
$self->status_created(
$c,
location => $c->req->uri->as_string,
entity => {
radiohead => "Is a good band!",
}
);
In the above example, we use the requested URI as our location. This
is probably what you want for most PUT requests.
status_accepted
Returns a "202 ACCEPTED" response. Takes an "entity" to serialize.
Example:
$self->status_accepted(
$c,
entity => {
status => "queued",
}
);
status_bad_request
Returns a "400 BAD REQUEST" response. Takes a "message" argument as
a scalar, which will become the value of "error" in the serialized
response.
Example:
$self->status_bad_request(
$c,
message => "Cannot do what you have asked!",
);
status_not_found
Returns a "404 NOT FOUND" response. Takes a "message" argument as a
scalar, which will become the value of "error" in the serialized
response.
Example:
$self->status_not_found(
$c,
message => "Cannot find what you were looking for!",
);
MANUAL RESPONSES
If you want to construct your responses yourself, all you need to do is
put the object you want serialized in $c->stash->{'rest'}.
IMPLEMENTATION DETAILS
This Controller ties together Catalyst::Action::REST,
Catalyst::Action::Serialize and Catalyst::Action::Deserialize. It should
be suitable for most applications. You should be aware that it:
Configures the Serialization Actions
This class provides a default configuration for Serialization. It is
currently:
__PACKAGE__->config(
serialize => {
'stash_key' => 'rest',
'map' => {
'text/html' => 'YAML::HTML',
'text/xml' => 'XML::Simple',
'text/x-yaml' => 'YAML',
'text/x-json' => 'JSON',
'text/x-data-dumper' => [ 'Data::Serializer', 'Data::Dumper' ],
'text/x-data-denter' => [ 'Data::Serializer', 'Data::Denter' ],
'text/x-data-taxi' => [ 'Data::Serializer', 'Data::Taxi' ],
'application/x-storable' => [ 'Data::Serializer', 'Storable'
],
'application/x-freezethaw' => [ 'Data::Serializer', 'FreezeThaw'
],
'text/x-config-general' => [ 'Data::Serializer', 'Config::General' ]
,
'text/x-php-serialization' => [ 'Data::Serializer', 'PHP::Serialization' ],
},
}
);
You can read the full set of options for this configuration block in
Catalyst::Action::Serialize.
Sets a "begin" and "end" method for you
The "begin" method uses Catalyst::Action::Deserialize. The "end"
method uses Catalyst::Action::Serialize. If you want to override
either behavior, simply implement your own "begin" and "end" actions
and use NEXT:
my Foo::Controller::Monkey;
use base qw(Catalyst::Controller::REST);
sub begin :Private {
my ($self, $c) = @_;
... do things before Deserializing ...
$self->NEXT::begin($c);
... do things after Deserializing ...
}
sub end :Private {
my ($self, $c) = @_;
... do things before Serializing ...
$self->NEXT::end($c);
... do things after Serializing ...
}
A MILD WARNING
I have code in production using Catalyst::Controller::REST. That
said, it is still under development, and it's possible that things
may change between releases. I promise to not break things
unneccesarily. :)
SEE ALSO
Catalyst::Action::REST, Catalyst::Action::Serialize,
Catalyst::Action::Deserialize
For help with REST in general:
The HTTP 1.1 Spec is required reading.
http://www.w3.org/Protocols/rfc2616/rfc2616.txt
Wikipedia!
http://en.wikipedia.org/wiki/Representational_State_Transfer
The REST Wiki: http://rest.blueoxen.net/cgi-bin/wiki.pl?FrontPage
AUTHOR
Adam Jacob <adam@stalecoffee.org>, with lots of help from mst and
jrockway
Marchex, Inc. paid me while I developed this module.
(http://www.marchex.com)
LICENSE
You may distribute this code under the same terms as Perl itself.