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
|
#!perl
use strict;
use warnings;
use FindBin;
use Web::Machine;
BEGIN { eval { require( "$FindBin::Bin/030-postback.psgi" ) } }
{
package YAPC::NA::2012::Example031::Resource;
use strict;
use warnings;
use JSON::XS ();
use base 'YAPC::NA::2012::Example030::Resource';
sub allowed_methods { [qw[ GET PUT POST ]] }
sub content_types_accepted { [ { 'application/json' => 'from_json' } ] }
sub from_json {
my $self = shift;
$self->save_message( JSON::XS->new->allow_nonref->decode( $self->request->content ) );
}
sub process_post {
my $self = shift;
return \415 unless $self->request->header('Content-Type')->match('application/x-www-form-urlencoded');
$self->SUPER::process_post;
}
}
Web::Machine->new( resource => 'YAPC::NA::2012::Example031::Resource' )->to_app;
|
