1 package HTTP::Body::OctetStream;
12 unless ( $self->body ) {
13 $self->body( File::Temp->new );
16 if ( my $length = length( $self->{buffer} ) ) {
17 $self->body->write( delete $self->{buffer}, $length );
20 if ( $self->length == $self->content_length ) {
21 seek( $self->body, 0, 0 );