Path::Class::File->temp support

[mrdvt92]

It would be nice to provide temp file support

my $file = Path::Class::File->temp;

On Unixy systems it would put the file in /tmp. On Windows systems it should do the right thing as well.

Example:

perl -e '

{
package Path::Class::FileX;
use strict;
use warnings;
use base qw{Path::Class::File};
use File::Tempdir qw{};

sub temp {
my $self = shift; #class or object
my $tmpdir = File::Tempdir->new or die("Error: Could not create File::Tempdir object");
my $local_folder = $tmpdir->name or die("Error: Temporary directory not configured.");
my $file = $self->new($local_folder => "file.tmp"); #folder is unique
$file->{"__tmpdir"} = $tmpdir; #must keep tmpdir scope alive
return $file;
}
}

my $location;
{
my $file=Path::Class::FileX->temp;
print "$file\n";
$location="$file";
my $fh=$file->openw;
print $fh "Hello World!\n";
$fh->close;

print $file->slurp;
}

print "Exists\n" if -f $location; #file is out of scope so gone!

'

[kenahoo]

I like the idea. Would you be willing to work up a pull request?