package GT::TempDir;
use strict;
use vars qw/@ISA $ATTRIBS $TMP_DIR/;
use GT::Base;
use GT::MD5 qw/md5_hex/;
@ISA = qw/GT::Base/;
$ATTRIBS = { dir => undef, files => [] };

sub find_dir {
# Copy from GT::TempFile; Basically just called once
# to find a system tmp directory that is writeable.
}

sub init {
# Called whenever a new object is created.
my $self = shift;
$TMP_DIR ||= find_dir();
$self->{dir} = $TMP_DIR . '/' . md5_hex( time() . $$ . rand() );
mkdir ($self->{dir}, 0700) or return $self->error ('MKDIR', 'WARN', "$!");
return $self;
}

sub new_file {
# Create a new tmp file in the directory.
my $self = shift;
my $file = $self->{dir} . '/' . md5_hex ( time() . $$ . rand() );
push @{$self->{files}}, $file;
return $file;
}

sub DESTROY {
# Object is gone, let's clean up.
my $self = shift;
foreach my $file (@{$self->{files}}) {
unlink $file;
}
rmdir $self->{dir};
}

{
my $tmp_dir = new GT::TempDir or die "Can't find writeable directory: $GT::TempDir::error";
my $tmp_file = $tmp_dir->new_file;
open (FILE, "> $tmp_file") or ..;
...
close FILE;
}
# tmp_dir is now out of scope, so it will get cleaned up.