/usr/local/CPAN/HTTP-Engine/HTTP/Engine/Role/ResponseWriter/OutputBody.pm

• package HTTP::Engine::Role::ResponseWriter::OutputBody
  • output_body
• EOF

package HTTP::Engine::Role::ResponseWriter::OutputBody;
use Any::Moose '::Role';

has chunk_size => (
    is      => 'ro',
    isa     => 'Int',
    default => 4096,
);

sub output_body  {
    my($self, $body) = @_;

    no warnings 'uninitialized';
    if ((Scalar::Util::blessed($body) && $body->can('read')) || (ref($body) eq 'GLOB')) {
        while (!eof $body) {
            read $body, my ($buffer), $self->chunk_size;
            last unless $self->write($buffer);
        }
        close $body;
    } else {
        $self->write($body);
    }
}

1;