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
|
#!perl
use strict;
use warnings;
use Web::Machine;
=pod
This test shows that the order of content_types_provided
is actually important if you do not specify a media-type.
# JSON is the default ...
curl -v http://0:5000/
# you must ask specifically for HTML
curl -v http://0:5000/ -H 'Accept: text/html'
# but open in a browser and you get HTML
open http://0:5000/
=cut
{
package YAPC::NA::2012::Example001::Resource;
use strict;
use warnings;
use JSON::XS qw[ encode_json ];
use parent 'Web::Machine::Resource';
sub content_types_provided { [
{ 'application/json' => 'to_json' },
{ 'text/html' => 'to_html' },
] }
sub to_json { encode_json( { message => 'Hello World' } ) }
sub to_html { '<html><body><h1>Hello World</h1></body></html>' }
}
Web::Machine->new( resource => 'YAPC::NA::2012::Example001::Resource' )->to_app;
|
