/usr/local/CPAN/DBIx-Abstract/Makefile.PL

• package main
  • Configure
  • Usage
• __END__
• EOF

use strict;
BEGIN { $^W = 1 } # use warnings in Perl 5.6 parlance
use ExtUtils::MakeMaker qw( prompt WriteMakefile );
use Config ();
use Getopt::Long();
use Data::Dumper ();

my $TESTDB  = "test";
my $TESTDRIVER = "";

use vars qw($opt);
$opt =
  { "help" => \&Usage,
  };
Getopt::Long::GetOptions($opt, "help", "testdb=s", "testhost=s",
			 "testport=s", "testdsn=s", "testdriver=s",
			 "testuser=s", "testpassword=s",
			 );
my $source = {};

foreach my $key (qw/testdsn testdriver testdb testhost testport testuser testpassword/) {
  Configure($opt, $source, $key);
}

print <<"MSG";
I will use the following settings for compiling and testing:

MSG

delete $opt->{'help'};
my $keylen = 0;
foreach my $key (keys %$opt) {
  $keylen = length($key) if length($key) > $keylen;
}
my $slen = 0;
foreach my $val (values %$source) {
  $slen = length($val) if length($val) > $slen;
}
foreach my $key (sort { $a cmp $b} keys %$opt) {
  printf("  %-" . $keylen . "s (%-" . $slen . "s) = %s\n",
	 $key, $source->{$key}, $opt->{$key})
}

print <<"MSG";

To change these settings, see 'perl Makefile.PL --help'.

MSG

#sleep 5;

eval { require File::Spec };
my $fileName = $@ ?
  "t/dbia.config" : File::Spec->catfile("t", "dbia.config");
die "Failed to determine location of $fileName" unless -f $fileName;
if (open(FILE, ">$fileName")) {
    print FILE "{ my " . Data::Dumper->Dump([$opt], ["opt"]) .
               "  sub load_all { return (\n".
               "      driver   => \$opt->{'testdriver'},\n" .
               "      host     => \$opt->{'testhost'},\n" .
               "      port     => \$opt->{'testport'},\n" .
               "      user     => \$opt->{'testuser'},\n" .
               "      password => \$opt->{'testpassword'},\n" .
               "      db       => \$opt->{'testdb'},\n" .
               "      dsn      => \$opt->{'testdsn'},\n" .
               "      ) }\n".
               "} 1;\n";
    close(FILE) or die "Failed to create $fileName: $!";
}

WriteMakefile(
    'NAME'         => 'DBIx::Abstract',
    'VERSION_FROM' => 'Abstract.pm', 
    'PREREQ_PM'	   => {
        'DBI'          => 0,
        'Scalar::Util' => 0,
        'Test::Simple' => 0.44,
        },
    'PM'           => {'Abstract.pm'=>'blib/lib/DBIx/Abstract.pm'},
    'dist'         => {'COMPRESS'=>'gzip -9f', 'SUFFIX' => 'gz'},
    'clean'       => {FILES=>'config.pl t/3.t test.log'},
    ($ExtUtils::MakeMaker::VERSION >= 5.43 ?
      (ABSTRACT_FROM => 'Abstract.pm', # retrieve abstract from module
       AUTHOR        => 'Andy Turner <turnera@cpan.org>') : ()),
);

sub Configure {
    my($opt, $source, $param) = @_;

    if (exists($opt->{$param})) {
        $source->{$param} = "Users choice";
        return;
    }

    if ($param eq "testdriver") {
        $source->{$param} = "default";
        $opt->{$param} = $TESTDRIVER;
    } elsif ($param eq "testdb") {
        $source->{$param} = "default";
        $opt->{$param} = $TESTDB;
    } elsif ($param eq "testuser"  || $param eq "testpassword" || 
             $param eq "testdsn" || $param eq "testhost" ||
             $param eq "testport") {
        $source->{$param} = "default";
        $opt->{$param} = "";
    } else {
        die "Unknown configuration parameter: $param";
    }
}


sub Usage {
  print STDERR <<"USAGE";
Usage: perl $0 [options]

Possible options are:

  --testdsn=<db>         Use the DBI datasource <dsn> for running the test suite

  Or you can connect with these:

  --testdriver=<driver>  Use the DBD driver <driver> for running the test
                         suite; defaults to $TESTDRIVER
  --testdb=<db>          Use the database <db> for running the test suite;
                         defaults to $TESTDB
  --testhost=<host>      Use <host> as a database server for running the
                         test suite; the default is not to specify one
  --testport=<port>      Use <port> as the port number of the database;
                         the default is not to specify one

  --testuser=<user>      Use the username <user> for running the test suite;
                         defaults to no username
  --testpassword=<pwd>   Use the password <pwd> for running the test suite;
                         defaults to no password

  --help                 Print this message and exit

USAGE
  exit 1;
}


__END__