File manager - Edit - /usr/local/cpanel/3rdparty/perl/542/cpanel-lib/HTTP/Body/OctetStream.pm
Back
package HTTP::Body::OctetStream; $HTTP::Body::OctetStream::VERSION = '1.23'; 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 SUPPORT See L<HTTP::Body> =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;
| ver. 1.4 |
Github
|
.
| PHP 8.1.34 | Generation time: 0.05 |
proxy
|
phpinfo
|
Settings