EVOLUTION-MANAGER

Edit File: OctetStream.pm

package HTTP::Body::OctetStream; use strict; use base 'HTTP::Body'; use bytes; use File::Temp 0.14; =head1 NAME HTTP::Body::OctetStream - HTTP Body OctetStream Parser =head1 SYNOPSIS use HTTP::Body::OctetStream; =head1 DESCRIPTION HTTP Body OctetStream Parser. =head1 METHODS =over 4 =item spin =cut sub spin { my $self = shift; unless ( $self->body ) { $self->body( File::Temp->new( DIR => $self->tmpdir ) ); } if ( my $length = length( $self->{buffer} ) ) { $self->body->write( substr( $self->{buffer}, 0, $length, '' ), $length ); } if ( $self->length == $self->content_length ) { seek( $self->body, 0, 0 ); $self->state('done'); } } =back =head1 AUTHOR Christian Hansen, C<ch@ngmedia.com> =head1 LICENSE This library is free software . You can redistribute it and/or modify it under the same terms as perl itself. =cut 1;