Adds support for streaming response body
This commit is contained in:
parent
217b486b03
commit
9e535846d5
2 changed files with 46 additions and 4 deletions
|
|
@ -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;
|
||||
Loading…
Add table
Add a link
Reference in a new issue