support passing options to Directory::Scratch

sixteencolors · Jan 27, 2012 · ce7d921 · ce7d921
1 parent a1c35f2
commit ce7d921
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/lib/SixteenColors/Archive.pm b/lib/SixteenColors/Archive.pm
@@ -33,9 +33,10 @@ sub files {
 }
 
 sub extract {
-    my ( $self, $dir ) = @_;
+    my ( $self, $options ) = @_;
+    $options ||= {};
+    my $dir = Directory::Scratch->new( %$options );
     my $zip = $self->archive;
-    $dir = Directory::Scratch->new; # custom extraction dir not yet supported
 
     my $warn = '';
     eval {