add new tempdir function to Path::Class which returns new Path::Cla…

…ss::Dir instance pointed to temporary directory.
Smylers · Jul 20, 2012 · 3fd9fa7 · 3fd9fa7
1 parent a3bf55c
commit 3fd9fa7
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 2 deletions.
diff --git a/lib/Path/Class.pm b/lib/Path/Class.pm
@@ -7,17 +7,19 @@ package Path::Class;
   no strict 'vars';
   @ISA = qw(Exporter);
   @EXPORT    = qw(file dir);
-  @EXPORT_OK = qw(file dir foreign_file foreign_dir);
+  @EXPORT_OK = qw(file dir foreign_file foreign_dir tempdir);
 }
 
 use Exporter;
 use Path::Class::File;
 use Path::Class::Dir;
+use File::Temp ();
 
 sub file { Path::Class::File->new(@_) }
 sub dir  { Path::Class::Dir ->new(@_) }
 sub foreign_file { Path::Class::File->new_foreign(@_) }
 sub foreign_dir  { Path::Class::Dir ->new_foreign(@_) }
+sub tempdir { Path::Class::Dir->new(File::Temp::tempdir(@_)) }
 
 
 1;

diff --git a/t/03-filesystem.t b/t/03-filesystem.t
@@ -4,7 +4,7 @@ use Test::More;
 use File::Temp qw(tmpnam tempdir);
 use File::Spec;
 
-plan tests => 79;
+plan tests => 81;
 
 use_ok 'Path::Class';
 
@@ -292,3 +292,11 @@ SKIP: {
     return \%files;
   }
 }
+
+{
+  $dir = Path::Class::tempdir();
+  isa_ok $dir, 'Path::Class::Dir';
+
+  $dir = Path::Class::tempdir(CLEANUP => 1);
+  isa_ok $dir, 'Path::Class::Dir';
+};