HTTP::Daemon::Threaded::Content
package HTTP::Daemon::Threaded::Content;
use HTTP::Daemon::Threaded::Logable;
use base qw(HTTP::Daemon::Threaded::Logable);
use strict;
use warnings;
our $VERSION = '0.91';
sub new {
my ($class, %args) = @_;
return bless \%args, $class;
}
sub getContent {
my ($self, $fd, $request, $uri, $params, $session) = @_;
$fd->send_error(404);
}
sub getHeader {
my ($self, $fd, $request, $uri, $params, $session) = @_;
$fd->send_error(404);
}
sub putContent {
my ($self, $fd, $request, $uri, $content, $session) = @_;
$fd->send_error(401);
}
sub setCookie {
my ($self, $res, $session) = @_;
$res->header('Set-Cookie' => $session->getCookie());
return $self;
}
1;