1package N11g;
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    my $self = shift;
18    $self->response->redirect( '/foo/bar/baz' );
19    $self->response->headers->remove_header('Location');
20    1;
21}
22
23sub finish_request {
24    my ($self, $metadata) = @_;
25    $self->response->body([ $metadata->{'exception'} ]);
26}
27
281;
29