Adds support for streaming response body

This commit is contained in:
Patrick Donelan 2010-04-06 21:57:57 -04:00
parent 217b486b03
commit 9e535846d5
2 changed files with 46 additions and 4 deletions

View file

@ -1,10 +1,19 @@
package WebGUI::Response;
use parent qw(Plack::Response);
use Plack::Util::Accessor qw(streaming);
=head2 DESCRIPTION
The WebGUI server response object. See of L<Plack::Response>
=cut
sub stream {
my $self = shift;
my $streamer = shift;
$self->streaming(1);
$self->body($streamer);
}
1;