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: PerlIO.pm
(506 B)
Path: /usr/share/perl5/vendor_perl/Stream/Buffered/PerlIO.pm
Back
package Stream::Buffered::PerlIO; use strict; use warnings; use base 'Stream::Buffered'; sub new { my $class = shift; bless { buffer => '' }, $class; } sub print { my $self = shift; $self->{buffer} .= "@_"; } sub size { my $self = shift; length $self->{buffer}; } sub rewind { my $self = shift; my $buffer = $self->{buffer}; open my $io, "<", \$buffer; bless $io, 'FileHandle'; # This makes $io work as FileHandle under 5.8, .10 and .11 :/ return $io; } 1;