t/lib/Aux.pm
changeset 150 3db363880766
parent 144 be90bcd14ae1
child 152 1ed33114d87f
--- a/t/lib/Aux.pm	Thu Jun 30 15:19:33 2011 +0200
+++ b/t/lib/Aux.pm	Thu Jun 30 16:24:32 2011 +0200
@@ -6,7 +6,7 @@
 use File::Temp;
 use base "Exporter";
 
-our $VERSION = 0.0;
+our $VERSION   = 0.0;
 our @EXPORT_OK = qw(make_config);
 
 sub make_config($) {
@@ -15,16 +15,21 @@
 
     my $f = File::Temp->new or die "Config file creation failed\n";
 
-    if (ref $c eq 'HASH') {
+    if ( ref $c eq 'HASH' ) {
         map { print $f "$_ = $c->{$_}\n" } keys %{$c};
-    } elsif (defined $c) {
+    }
+    elsif ( defined $c ) {
+
         # assuming just a string
         print $f $c;
-    } else {
+    }
+    else {
+
         # make a default configuration
-        my ($bd, $md, $cd);
-        for ($bd, $md, $cd) {
-            my $d = File::Temp::tempdir CLEANUP => 1 or die "Can't make temporary directory";
+        my ( $bd, $md, $cd );
+        for ( $bd, $md, $cd ) {
+            my $d = File::Temp::tempdir CLEANUP => 1
+              or die "Can't make temporary directory";
             $_ = $d->filename;
         }