use Getopt::Long();
my $getopt = Getopt::Long::Parser->new(
- config => [qw/gnu_getopt bundling_override no_ignore_case pass_through/]
+ config => [qw/gnu_getopt bundling_override no_ignore_case pass_through/]
);
my $args = {
- skip_author_deps => undef,
+ skip_author_deps => undef,
};
$getopt->getoptions($args, 'skip_author_deps');
if (@ARGV) {
- warn "\nIgnoring unrecognized option(s): @ARGV\n\n";
+ warn "\nIgnoring unrecognized option(s): @ARGV\n\n";
}
use FindBin;
EOF
if ($Module::Install::AUTHOR && ! $args->{skip_author_deps}) {
- eval { require Module::Install::ReadmeFromPod }
- or die "\nYou need Module::Install::ReadmeFromPod installed to run this Makefile.PL in author mode:\n\n$@\n";
+ my @missing_plugins;
+ for my $plugin (qw(ReadmeFromPod AuthorTests)) {
+ eval "require Module::Install::$plugin" and next;
+ push @missing_plugins, "Module::Instal::$plugin";
+ chomp(my $err = $@);
+ $missing_plugins[-1] .= " ($err)"
+ unless $err =~ m{^Can't locate Module/Install/$plugin.pm in \@INC};
+ }
+ die "\nYou need to install the following modules to run this Makefile.PL in author mode:\n\n", join("\n", @missing_plugins), "\n\n"
+ if @missing_plugins;
warn "\n*** AUTHOR MODE: some optional dependencies converted to hard requires.\n\n";
DBIx::Class::Schema::Loader::Optional::Dependencies->_gen_pod(undef, 'lib');
+ author_tests( 'xt' );
readme_from( 'lib/DBIx/Class/Schema/Loader.pm' );
realclean_files( qw[README MANIFEST lib/DBIx/Class/Schema/Loader/Optional/Dependencies.pod] );
+ postamble <<EOP;
+create_distdir: author_stop_distdir_creation
+author_stop_distdir_creation:
+\t\$(NOECHO) \$(ECHO) Creation of dist with author mode deps not allowed
+\t\$(NOECHO) \$(ECHO) Please re-run Makefile.PL with --skip_author_deps
+\t\$(NOECHO) \$(FALSE)
+EOP
+
}
tests_recursive;