1 package HTTP::Body::OctetStream;
11 HTTP::Body::OctetStream - HTTP Body OctetStream Parser
15 use HTTP::Body::OctetStream;
19 HTTP Body OctetStream Parser.
32 unless ( $self->body ) {
33 $self->body( File::Temp->new( DIR => $self->tmpdir ) );
36 if ( my $length = length( $self->{buffer} ) ) {
37 $self->body->write( substr( $self->{buffer}, 0, $length, '' ), $length );
40 if ( $self->length == $self->content_length ) {
41 seek( $self->body, 0, 0 );
50 Christian Hansen, C<ch@ngmedia.com>
54 This library is free software . You can redistribute it and/or modify
55 it under the same terms as perl itself.