package OutBuffer;

use strict;
use warnings;
use File::Temp qw(tempfile);
use Carp;

sub new{
        my $class = shift;
        my %in = (
                tmpdir => '/tmp',
        @_);
        my $self = bless{}, $class;
        return eval{
                croak "Dir '$in{tmpdir}' does'nt exists" if not -d $in{tmpdir};
                croak "No write permission to '$in{tmpdir}'" if not -w $in{tmpdir};
                ($self->{FH}, $self->{FN}) = tempfile(DIR => $in{tmpdir}) or croak "Can't create tmp FH, FN";
                $self;
        };
}

sub start{
        my $self = shift;
        select $self->{FH};
}

# from temp Handle to STDOUT
sub out{
        my $self = shift;
        seek $self->{FH}, 0,0;
        select STDOUT;
        while(read $self->{FH}, my $buffer, 1024){ print $buffer }
}

# delete tmp File
sub DESTROY{
        my $self = shift;
        close $self->{FH} if defined $self->{FH};
        unlink $self->{FN} if defined $self->{FN};
        select STDOUT;
}
1;##################################################################################################