Ready to start thinking about IO bound delayed response

This commit is contained in:
Patrick Donelan 2010-03-13 11:31:32 -05:00
parent 7603fce565
commit 5f549b1305
4 changed files with 74 additions and 47 deletions

View file

@ -95,16 +95,18 @@ sub print {
print $handle $content;
}
elsif ($self->session->request) {
# TODO - take away this hack
if (ref $self->session->request->body eq 'ARRAY') {
push @{$self->session->request->body}, $content;
} else {
if ($self->session->request->logger) {
$self->session->request->logger->({ level => 'warn', message => "dropping content: $content" });
} else {
warn "dropping content: $content";
}
}
# TODO - put in IO bound delayed response
warn "content: $content";
# $self->session->request->body([]) unless $self->session->request->body();
# if (ref $self->session->request->body eq 'ARRAY') {
# push @{$self->session->request->body}, $content;
# } else {
# if ($self->session->request->logger) {
# $self->session->request->logger->({ level => 'warn', message => "dropping content: $content" });
# } else {
# warn "dropping content";#: $content";
# }
# }
# $self->session->request->print($content);
}
else {