more minor progress

This commit is contained in:
Patrick Donelan 2009-10-09 22:37:18 +11:00
parent da75a8b207
commit d8e6256da8
3 changed files with 19 additions and 4 deletions

View file

@ -48,6 +48,12 @@ sub AUTOLOAD {
sub uri { shift->request->request_uri(@_) }
sub headers_in { shift->request->headers(@_) }
sub param { shift->request->param(@_) }
sub params { shift->request->params(@_) }
# TODO: I suppose this should do some sort of IO::Handle thing
my @body;
sub print { shift; push @body, @_ }
sub pnotes {
my ($self, $key) = (shift, shift);