t/lib/Aux.pm
branchfoerste
changeset 152 1ed33114d87f
parent 148 b0fd381a4b53
parent 150 3db363880766
child 153 af27be0a326b
--- a/t/lib/Aux.pm	Thu Jun 30 16:15:59 2011 +0200
+++ b/t/lib/Aux.pm	Thu Jun 30 16:34:57 2011 +0200
@@ -6,21 +6,25 @@
 use File::Temp;
 use base "Exporter";
 
-our $VERSION = 0.0;
+our $VERSION   = 0.0;
 our @EXPORT_OK = qw(make_config);
 
-sub make_config {
+sub make_config($) {
 
     my ($c) = @_;
 
     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
         $_ = File::Temp::tempdir CLEANUP => 1 or die "Can't make temporary directory" for my ($bd, $md, $cd);