mention File::Temp too

mojolicious · Jan 8, 2017 · 367e353 · s1037989 · Jan 8, 2017 · kraih
1 parent 07799e5
commit 367e353
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 0 deletions.
diff --git a/lib/Mojo/File.pm b/lib/Mojo/File.pm
@@ -134,6 +134,7 @@ Mojo::File - File system paths
 
   use Mojo::File;
 
+  # Portably deal with file system paths
   my $path = Mojo::File->new('/home/sri/.vimrc');
   say $path->slurp;
   say $path->basename;
@@ -163,6 +164,7 @@ individually.
   my $path = path;
   my $path = path('/home/sri/.vimrc');
   my $path = path('/home', 'sri', '.vimrc');
+  my $path = path(File::Temp->newdir);
 
 Construct a new scalar-based L<Mojo::File> object, defaults to using the current
 working directory.
@@ -295,6 +297,7 @@ Move the file.
   my $path = Mojo::File->new;
   my $path = Mojo::File->new('/home/sri/.vimrc');
   my $path = Mojo::File->new('/home', 'sri', '.vimrc');
+  my $path = Mojo::File->new(File::Temp->newdir);
 
 Construct a new L<Mojo::File> object, defaults to using the current working
 directory.

diff --git a/t/mojo/file.t b/t/mojo/file.t
@@ -4,6 +4,7 @@ use Test::More;
 use Cwd qw(abs_path getcwd);
 use File::Basename qw(basename dirname);
 use File::Spec::Functions qw(abs2rel catfile splitdir);
+use File::Temp;
 use Mojo::File qw(path tempdir);
 
 # Constructor
@@ -56,6 +57,13 @@ $dir = tempdir 'mytestXXXXX';
 ok -d $dir, 'directory exists';
 like $dir->basename, qr/mytest.{5}$/, 'right format';
 
+# Temporary diectory (separate object)
+$dir  = Mojo::File->new(File::Temp->newdir);
+$path = "$dir";
+ok -d $path, 'directory exists';
+undef $dir;
+ok !-d $path, 'directory does not exist anymore';
+
 # Make path
 $dir = tempdir;
 my $subdir = $dir->child('foo', 'bar');