1package Stream::Buffered::File; 2use strict; 3use warnings; 4use base 'Stream::Buffered'; 5 6use IO::File; 7 8sub new { 9 my $class = shift; 10 11 my $fh = IO::File->new_tmpfile; 12 $fh->binmode; 13 14 bless { fh => $fh }, $class; 15} 16 17sub print { 18 my $self = shift; 19 $self->{fh}->print(@_); 20} 21 22sub size { 23 my $self = shift; 24 $self->{fh}->flush; 25 -s $self->{fh}; 26} 27 28sub rewind { 29 my $self = shift; 30 $self->{fh}->seek(0, 0); 31 $self->{fh}; 32} 33 341; 35