Beta Shell
v2.0 ยท web2.us.cloudlogin.co
[FM]
[CMD]
[PHP]
[DB]
[INFO]
[SEC]
File Manager
~
/
usr
/
share
/
perl5
/
vendor_perl
/
Stream
/
Buffered
Upload
5 items
Name
Size
Perms
Modified
Actions
[ .. / .. ]
Auto.pm
718 B
-rw-r--r--
2014-06-06 14:43:18
Edit
Del
File.pm
460 B
-rw-r--r--
2014-06-06 14:43:18
Edit
Del
PerlIO.pm
506 B
-rw-r--r--
2014-06-06 14:43:18
Edit
Del
Editing: File.pm
(460 B)
Path: /usr/share/perl5/vendor_perl/Stream/Buffered/File.pm
Back
package Stream::Buffered::File; use strict; use warnings; use base 'Stream::Buffered'; use IO::File; sub new { my $class = shift; my $fh = IO::File->new_tmpfile; $fh->binmode; bless { fh => $fh }, $class; } sub print { my $self = shift; $self->{fh}->print(@_); } sub size { my $self = shift; $self->{fh}->flush; -s $self->{fh}; } sub rewind { my $self = shift; $self->{fh}->seek(0, 0); $self->{fh}; } 1;