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