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;