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