1 package Aux;

     2 

     3 use strict;

     4 use warnings;

     5 

     6 use File::Temp;

     7 use base "Exporter";

     8 

     9 our $VERSION = 0.0;

    10 our @EXPORT_OK = qw(make_config);

    11 

    12 sub make_config($) {

    13 

    14     my ($c) = @_;

    15 

    16     my $f = File::Temp->new or die "Config file creation failed\n";

    17 

    18     if (ref $c eq 'HASH') {

    19         map { print $f "$_ = $c->$_\n" } keys %{$c};

    20     } else {

    21         # assuming just a string

    22         print $f $c;

    23     }

    24 

    25     return $f;

    26 

    27 }

    28 

    29 1;