X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Makefile.PL;h=86497df576fcd95d33344445ee210e1fffbc28ef;hb=6cff13da2500c197b1365e97e4cd666ef55ad41d;hp=b4e9210938a2b9dc207cb2ef7acd16e1e4cc3803;hpb=9d2b098e9b10d044319657b4b771dbbcac61e0a7;p=dbsrgits%2FDBIx-Class.git diff --git a/Makefile.PL b/Makefile.PL index b4e9210..86497df 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -1,93 +1,161 @@ -use inc::Module::Install 0.67; +use inc::Module::Install 0.89; use strict; use warnings; use POSIX (); use 5.006001; # delete this line if you want to send patches for earlier. +# ****** DO NOT ADD OPTIONAL DEPENDENCIES. EVER. --mst ****** + name 'DBIx-Class'; perl_version '5.006001'; all_from 'lib/DBIx/Class.pm'; -requires 'DBD::SQLite' => 1.23; -requires 'Data::Page' => 2.00; -requires 'Scalar::Util' => 0; -requires 'SQL::Abstract' => 1.51; -requires 'SQL::Abstract::Limit' => 0.13; -requires 'Class::C3::Componentised' => 1.0005; -requires 'Storable' => 0; -requires 'Carp::Clan' => 0; -requires 'DBI' => 1.40; -requires 'Module::Find' => 0; -requires 'Class::Inspector' => 0; -requires 'Class::Accessor::Grouped' => 0.08003; -requires 'JSON::Any' => 1.17; -requires 'Scope::Guard' => 0.03; -requires 'Path::Class' => 0; -requires 'List::Util' => 1.19; -requires 'Sub::Name' => 0.04; -requires 'MRO::Compat' => 0.09; -# Perl 5.8.0 doesn't have utf8::is_utf8() -requires 'Encode' => 0 if ($] <= 5.008000); +test_requires 'Test::Builder' => '0.33'; +test_requires 'Test::Deep' => '0'; +test_requires 'Test::Exception' => '0'; +test_requires 'Test::More' => '0.92'; +test_requires 'Test::Warn' => '0.21'; + +test_requires 'File::Temp' => '0.22'; -# configure_requires so the sanity check below can run -configure_requires 'DBD::SQLite'; -test_requires 'Test::Builder' => 0.33; -test_requires 'Test::Warn' => 0.11; -test_requires 'Test::Exception' => 0; -test_requires 'Test::Deep' => 0; +# Core +requires 'List::Util' => '0'; +requires 'Scalar::Util' => '0'; +requires 'Storable' => '0'; + +# Perl 5.8.0 doesn't have utf8::is_utf8() +requires 'Encode' => '0' if ($] <= 5.008000); + +# Dependencies (keep in alphabetical order) +requires 'Carp::Clan' => '6.0'; +requires 'Class::Accessor::Grouped' => '0.09000'; +requires 'Class::C3::Componentised' => '1.0005'; +requires 'Class::Inspector' => '1.24'; +requires 'Data::Page' => '2.00'; +requires 'DBD::SQLite' => '1.25'; +requires 'DBI' => '1.605'; +requires 'JSON::Any' => '1.18'; +requires 'MRO::Compat' => '0.09'; +requires 'Module::Find' => '0.06'; +requires 'Path::Class' => '0.16'; +requires 'Scope::Guard' => '0.03'; +requires 'SQL::Abstract' => '1.60'; +requires 'SQL::Abstract::Limit' => '0.13'; +requires 'Sub::Name' => '0.04'; +requires 'Data::Dumper::Concise' => '1.000'; + +my %replication_requires = ( + 'Moose', => '0.87', + 'MooseX::AttributeHelpers' => '0.21', + 'MooseX::Types', => '0.16', + 'namespace::clean' => '0.11', + 'Hash::Merge', => '0.11', +); -recommends 'SQL::Translator' => 0.09004; +#************************************************************************# +# Make *ABSOLUTELY SURE* that nothing on this list is a real require, # +# since every module listed in %force_requires_if_author is deleted # +# from the final META.yml (thus will never make it as a CPAN dependency) # +#************************************************************************# +my %force_requires_if_author = ( + %replication_requires, -install_script 'script/dbicadmin'; + # when changing also adjust $DBIx::Class::Storage::DBI::minimum_sqlt_version + 'SQL::Translator' => '0.11002', -tests_recursive 't'; +# 'Module::Install::Pod::Inherit' => '0.01', -# re-build README and require extra modules for testing if we're in a checkout + # when changing also adjust version in t/02pod.t + 'Test::Pod' => '1.26', -my %force_requires_if_author = ( - 'Test::Pod::Coverage' => 1.04, - 'SQL::Translator' => 0.09004, + # when changing also adjust version in t/03podcoverage.t + 'Test::Pod::Coverage' => '1.08', + 'Pod::Coverage' => '0.20', # CDBI-compat related - 'DBIx::ContextualFetch' => 0, - 'Class::DBI::Plugin::DeepAbstractSearch' => 0, - 'Class::Trigger' => 0, - 'Time::Piece' => 0, - 'Clone' => 0, + 'DBIx::ContextualFetch' => '0', + 'Class::DBI::Plugin::DeepAbstractSearch' => '0', + 'Class::Trigger' => '0', + 'Time::Piece::MySQL' => '0', + 'Clone' => '0', + 'Date::Simple' => '3.03', # t/52cycle.t - 'Test::Memory::Cycle' => 0, + 'Test::Memory::Cycle' => '0', + 'Devel::Cycle' => '1.10', + # t/36datetime.t # t/60core.t - 'DateTime::Format::MySQL' => 0, + 'DateTime::Format::SQLite' => '0', - # t/72pg.t + # t/96_is_deteministic_value.t + 'DateTime::Format::Strptime'=> '0', + + # database-dependent reqs + # $ENV{DBICTEST_PG_DSN} - ? ('Sys::SigAction'=> 0) - : () + ? ( + 'Sys::SigAction' => '0', + 'DBD::Pg' => '2.009002', + 'DateTime::Format::Pg' => '0', + ) : () , - # t/93storage_replication.t - 'Moose', => 0, - 'MooseX::AttributeHelpers' => 0.12, - - # t/96_is_deteministic_value.t - 'DateTime::Format::Strptime' => 0, -); - -if ($Module::Install::AUTHOR) { + $ENV{DBICTEST_MYSQL_DSN} + ? ( + 'DateTime::Format::MySQL' => '0', + ) : () + , - foreach my $module (keys %force_requires_if_author) { - build_requires ($module => $force_requires_if_author{$module}); - } + $ENV{DBICTEST_ORA_DSN} + ? ( + 'DateTime::Format::Oracle' => '0', + ) : () + , - system('pod2text lib/DBIx/Class.pm > README'); -} + $ENV{DBICTEST_SYBASE_DSN} + ? ( + 'DateTime::Format::Sybase' => 0, + ) : () + , +); +#************************************************************************# +# Make ABSOLUTELY SURE that nothing on the list above is a real require, # +# since every module listed in %force_requires_if_author is deleted # +# from the final META.yml (thus will never make it as a CPAN dependency) # +#************************************************************************# + + +install_script (qw| + script/dbicadmin +|); + +tests_recursive (qw| + t +|); + +resources 'IRC' => 'irc://irc.perl.org/#dbix-class'; +resources 'license' => 'http://dev.perl.org/licenses/'; +resources 'repository' => 'http://dev.catalyst.perl.org/repos/bast/DBIx-Class/'; +resources 'MailingList' => 'http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/dbix-class'; + +no_index 'DBIx::Class::SQLAHacks'; +no_index 'DBIx::Class::SQLAHacks::MySQL'; +no_index 'DBIx::Class::SQLAHacks::MSSQL'; +no_index 'DBIx::Class::SQLAHacks::OracleJoins'; +no_index 'DBIx::Class::Storage::DBI::AmbiguousGlob'; +no_index 'DBIx::Class::Storage::DBIHacks'; +no_index 'DBIx::Class::PK::Auto::DB2'; +no_index 'DBIx::Class::PK::Auto::MSSQL'; +no_index 'DBIx::Class::PK::Auto::MySQL'; +no_index 'DBIx::Class::PK::Auto::Oracle'; +no_index 'DBIx::Class::PK::Auto::Pg'; +no_index 'DBIx::Class::PK::Auto::SQLite'; -auto_provides; +# re-build README and require extra modules for testing if we're in a checkout if ($Module::Install::AUTHOR) { warn <<'EOW'; @@ -100,133 +168,34 @@ if ($Module::Install::AUTHOR) { ****************************************************************************** EOW -} -auto_install; - -# Have all prerequisites, check DBD::SQLite sanity -if (! $ENV{DBICTEST_NO_SQLITE_CHECK} ) { - my $pid = fork(); - if (not defined $pid) { - die "Unable to fork(): $!"; + foreach my $module (sort keys %force_requires_if_author) { + build_requires ($module => $force_requires_if_author{$module}); } - elsif (! $pid) { - - # Win32 does not have real fork()s so a segfault will bring - # everything down. Warn about it. - if ($^O eq 'MSWin32') { - print <<'EOW'; - -###################################################################### -# # -# A short stress-testing of DBD::SQLite will follow. If you have a # -# buggy library this might very well be the last text you will see # -# before the installation silently terminates. If this happens it # -# would mean that you are running a buggy version of DBD::SQLite # -# known to randomly segfault on errors. Even if you have the latest # -# CPAN module version, the system sqlite3 dynamic library might have # -# been compiled against an older buggy sqlite3 dev library (oddly # -# DBD::SQLite will prefer the system library against the one bundled # -# with it). You are strongly advised to resolve this issue before # -# proceeding. # -# # -# If this happens to you (this text is the last thing you see), and # -# you just want to install this module without worrying about the # -# tests (which will almost certainly fail) - set the environment # -# variable DBICTEST_NO_SQLITE_CHECK to a true value and try again. # -# # -###################################################################### -EOW - } - - require DBI; - for (1 .. 100) { - my $dbh; - $dbh = DBI->connect ('dbi:SQLite::memory:', undef, undef, { - AutoCommit => 1, - RaiseError => 0, - PrintError => 0, - }) - or die "Unable to connect to database: $@"; - $dbh->do ('CREATE TABLE name_with_no_columns'); # a subtle syntax error - $dbh->do ('COMMIT'); # followed by commit - $dbh->disconnect; - } - - exit 0; - } - else { - eval { - local $SIG{ALRM} = sub { die "timeout\n" }; - alarm 5; - wait(); - alarm 0; - }; - my $exception = $@; - - my $sig = $? & 127; - -# make sure process actually dies - $exception && kill POSIX::SIGKILL(), $pid; - - if ($exception || $sig == POSIX::SIGSEGV() || $sig == POSIX::SIGABRT() - || $sig == 7) { # 7 == SIGBUS, haven't seen it but just in case - warn (< README'); + + if (-f 'MANIFEST') { + print "Removing MANIFEST\n"; + unlink 'MANIFEST'; } + +# require Module::Install::Pod::Inherit; +# PodInherit(); } +auto_install(); WriteAll(); - +# Re-write META.yml to _exclude_ all forced requires (we do not want to ship this) if ($Module::Install::AUTHOR) { - # Need to do this _after_ WriteAll else it loses track of them - Meta->{values}{build_requires} = [ grep { - my $ok = 1; - foreach my $module (keys %force_requires_if_author) { - if ($_->[0] =~ /$module/) { - $ok = 0; - last; - } - } - $ok; - } @{Meta->{values}{build_requires}} ]; - - my @scalar_keys = Module::Install::Metadata::Meta_TupleKeys(); - my $cr = Module::Install::Metadata->can("Meta_TupleKeys"); - { - no warnings 'redefine'; - *Module::Install::Metadata::Meta_TupleKeys = sub { - return $cr->(@_), 'resources'; - }; - } - Meta->{values}{resources} = [ - [ 'MailingList', 'http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/dbix-class' ], - [ 'IRC', 'irc://irc.perl.org/#dbix-class' ], - [ 'license', 'http://dev.perl.org/licenses/' ], - [ 'repository', 'http://dev.catalyst.perl.org/svnweb/bast/browse/DBIx-Class/' ], + + Meta->{values}{build_requires} = [ grep + { not exists $force_requires_if_author{$_->[0]} } + ( @{Meta->{values}{build_requires}} ) ]; + Meta->write; } -