From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

use Module::Build 0.28; # for prepare_metadata
use strict;
use warnings FATAL => 'all';
my $build = Module::Build->subclass(
class => "Module::Build::Custom",
code => '
sub prepare_metadata {
my $node = shift->SUPER::prepare_metadata(@_);
my $ver = $node->{version};
$_->{version} = $ver for values %{$node->{provides}};
$node;
}
sub ACTION_test {
my $self = shift;
if ( $self->notes(\'TEST_MYSQL_DSN\') ) {
$ENV{$_} = $self->notes($_) for qw(
TEST_MYSQL_DSN TEST_MYSQL_USER TEST_MYSQL_PASS
);
}
foreach my $name ( qw( LONG_TESTS TEST_SQLITE ) ) {
$ENV{$name} = 1 if $self->notes( $name );
}
$self->SUPER::ACTION_test( @_ );
}
',
)->new(
module_name => 'DBM::Deep',
license => 'perl',
requires => {
'perl' => '5.006_000',
'Fcntl' => '0.01',
'Scalar::Util' => '1.14',
'Digest::MD5' => '1.00',
},
build_requires => {
'File::Path' => '0.01',
'File::Temp' => '0.01',
'Pod::Usage' => '1.3',
'Test::More' => '0.88',
'Test::Deep' => '0.095',
'Test::Warn' => '0.08',
'Test::Exception' => '0.21',
'IO::Scalar' => '0.01',
},
create_makefile_pl => 'traditional',
add_to_cleanup => [
'META.yml', '*.bak', '*.gz', 'Makefile.PL', 'cover_db',
],
test_files => 't/??_*.t',
auto_features => {
sqlite_engine => {
description => 'DBI support via SQLite',
requires => {
'DBI' => '1.5',
'DBD::SQLite' => '1.25',
},
},
mysql_engine => {
description => 'DBI support via MySQL',
requires => {
'DBI' => '1.5',
'DBD::mysql' => '4.001',
},
},
},
);
if ( $build->y_n( "Run the long-running tests", 'n' ) ) {
$build->notes( 'LONG_TESTS' => 1 );
}
if ( $build->features( 'sqlite_engine' ) ) {
if ( $build->y_n( "Run the tests against the DBI engine via SQLite?", 'n' ) ) {
$build->notes( 'TEST_SQLITE' => 1 );
}
}
if ( $build->features( 'mysql_engine' ) ) {
if ( $build->y_n( "Run the tests against the DBI engine via MySQL?", 'n' ) ) {
my ($dsn, $user, $pass) = ('') x 3;
$dsn = $build->prompt( "\tWhat is the full DSN (for example 'dbi:mysql:test')" );
if ( $dsn ) {
$user = $build->prompt( "\tWhat is the username?" );
if ( $user ) {
$pass = $build->prompt( "\tWhat is the password?" );
}
}
$build->notes( 'TEST_MYSQL_DSN' => $dsn );
$build->notes( 'TEST_MYSQL_USER' => $user );
$build->notes( 'TEST_MYSQL_PASS' => $pass );
}
}
$build->create_build_script;