1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
package P11e;
use strict;
use warnings;
use Web::Machine::Util qw[ create_date ];
use parent 'Web::Machine::Resource';
sub allowed_methods { [qw[ GET HEAD PUT ]] }
sub content_types_provided { [ { 'text/plain' => sub {} } ] }
sub languages_provided { [qw[ de ]] }
sub charsets_provided { [ { 'utf-8' => sub {} } ] }
sub generate_etag { '0xDEADBEEF' }
sub last_modified { create_date( '18 Mar 2005 15:45:00 GMT' ) }
sub content_types_accepted { [ { 'text/plain' => 'accept_plain_text' } ] }
sub accept_plain_text {
(shift)->response->location('/foo/bar');
1;
}
1;
|
