diff -r ae564015b7b0 -r c26b5fa3f646 t/lib/Aux.pm --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/t/lib/Aux.pm Wed Jun 29 11:42:51 2011 +0200 @@ -0,0 +1,29 @@ +package Aux; + +use strict; +use warnings; + +use File::Temp; +use base "Exporter"; + +our $VERSION = 0.0; +our @EXPORT_OK = qw(make_config); + +sub make_config($) { + + my ($c) = @_; + + my $f = File::Temp->new or die "Config file creation failed\n"; + + if (ref $c eq 'HASH') { + map { print $f "$_ = $c->$_\n" } keys %{$c}; + } else { + # assuming just a string + print $f $c; + } + + return $f; + +} + +1;