1package M20;
2use strict;
3use warnings;
4
5use Web::Machine::Util qw[ create_date ];
6
7use parent 'Web::Machine::Resource';
8
9sub allowed_methods        { [qw[ GET HEAD DELETE ]] }
10sub content_types_provided { [ { 'text/plain' => sub {} } ] }
11sub languages_provided     { [qw[ de ]] }
12sub charsets_provided      { [ { 'utf-8' => sub {} } ] }
13sub encodings_provided     { +{ 'gzip' => sub {} } }
14
15sub generate_etag { '0xDEADBEEF' }
16
17sub last_modified { create_date( '18 Mar 2005 15:45:00 GMT' ) }
18
19sub delete_resource { 1 }
20sub delete_completed { 0 }
21
221;
23
241;