1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
package N11d;
use strict;
use warnings;
use parent 'Web::Machine::Resource';
sub allowed_methods { [qw[ GET HEAD PUT POST ]] }
sub content_types_provided { [ { 'text/plain' => sub {} } ] }
sub languages_provided { [qw[ en ]] }
sub charsets_provided { [ { 'utf-8' => sub {} } ] }
sub resource_exists { 0 }
sub previously_existed { 1 }
sub allow_missing_post { 1 }
sub post_is_create { 0 }
sub process_post { () }
sub finish_request {
my ($self, $metadata) = @_;
$self->response->body([ $metadata->{'exception'} ]);
}
1;
|
