1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
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;
|
