1package O18;
2use strict;
3use warnings;
4
5use parent 'Web::Machine::Resource';
6
7sub allowed_methods        { [qw[ GET HEAD PUT POST ]] }
8sub content_types_provided { [ { 'text/plain' => sub {} } ] }
9sub languages_provided     { [qw[ en ]] }
10sub charsets_provided      { [ { 'utf-8' => sub {} } ] }
11sub resource_exists        { 0 }
12sub previously_existed     { 1 }
13sub allow_missing_post     { 1 }
14sub post_is_create         { 0 }
15
16sub process_post {
17    (shift)->response->body( "HELLO WORLD" );
18    1;
19}
20
211;
22