RT #122733: profile has to be renamed to run_profile due to conflict w/ parameter
[bioperl-run.git] / Build.PL
blob603b91d6961e3d85dbc3606cf132a11fd4140cb3
1 #!/usr/bin/perl -w
3 # This is a Module::Build script for BioPerl-Run installation.
4 # See http://search.cpan.org/~kwilliams/Module-Build/lib/Module/Build.pm
6 use strict;
7 use warnings;
8 use Module::Build;
10 my $build = Module::Build->subclass(
11 code => q(
13 # add dist version to META files
14 sub get_metadata {
15 my ($self, %args) = @_;
16 my $metadata = $self->SUPER::get_metadata(%args);
18 if (exists $metadata->{provides}) {
19 my $ver = $self->dist_version;
20 my $pkgs = $metadata->{provides};
21 for my $p (keys %{$pkgs}) {
22 if (!exists($pkgs->{$p}->{'version'})) {
23 $pkgs->{$p}->{'version'} = $ver;
24 } else {
25 $self->log_warn("Note: Module $p has a set version: ".$pkgs->{$p}->{'version'}."\n")
26 if $pkgs->{$p}->{'version'} ne $ver;
30 return $metadata;
33 )->new(
34 dist_name => 'BioPerl-Run',
35 dist_version => '1.007002',
36 module_name => 'Bio::Run',
37 dist_author => 'BioPerl Team <bioperl-l@bioperl.org>',
38 dist_abstract => 'BioPerl-Run - wrapper toolkit',
39 license => 'perl',
40 config_requires => {
41 'Module::Build' => 0,
43 build_requires => {
44 'Bio::Root::Version' => '1.007000',
45 'Bio::Root::Test' => 0,
47 requires => {
48 'perl' => '5.6.1',
49 'Bio::Root::Version' => '1.007000',
50 'Bio::Root::Root' => 0,
52 recommends => {
53 'Algorithm::Diff' => 0, # generating consensus protein family descriptions: Bio::Tools::Run::TribeMCL
54 'IPC::Run' => 0, # Glimmer and Genemark application wrappers: Bio::Tools::Run::Glimmer Bio::Tools::Run::Genemark
55 'IO::String' => 0, # generating Bio::Tree::Tree from strings: Bio::Tools::Run::Phylo::Phylip::Consense
56 'XML::Twig' => 0, # processing XML data: Bio::Tools::Run::EMBOSSacd
57 'File::Sort' => 0, # BEDTools
58 'Config::Any' => 0, # MCS, Match
59 'Bio::FeatureIO' => 0, # MCS, Match, Phastcons, Gumby
60 #'SOAP::Lite' => 0.716, # A bug that affects SoapEU-unit.t tests was fixed in this version (many levels deep object throws error)
62 get_options => {
63 accept => { },
64 network => { },
65 install_scripts => { }
67 auto_features => {
68 Network => {
69 description => "Enable tests that need an internet connection",
70 requires => { 'LWP::UserAgent' => 0 }
73 dynamic_config => 1,
74 #create_makefile_pl => 'passthrough'
77 my $accept = $build->args->{accept};
79 # Optionally have script files installed.
80 if ($build->args('install_scripts') or $accept ? 0 : $build->y_n("Install scripts? y/n", 'n')) {
81 my $files = $build->_find_file_by_type('PLS', 'scripts');
83 my $script_build = File::Spec->catdir($build->blib, 'script');
85 my @tobp;
86 while (my ($file, $dest) = each %$files) {
87 $dest = 'bp_'.File::Basename::basename($dest);
88 $dest =~ s/PLS$/pl/;
89 $dest = File::Spec->catfile($script_build, $dest);
90 $build->copy_if_modified(from => $file, to => $dest);
91 push @tobp, $dest;
94 $build->script_files(\@tobp);
97 # Do network tests?
98 my $do_network_tests = 0;
99 if ($build->args('network')) {
100 $do_network_tests = $build->feature('Network');
102 elsif ($build->feature('Network')) {
103 $do_network_tests = $accept ? 0 : $build->y_n("Do you want to run tests that require connection to servers across the internet\n(likely to cause some failures)? y/n", 'n');
106 if ($do_network_tests) {
107 $build->notes(network => 1);
108 $build->log_info(" - will run internet-requiring tests\n");
109 my $use_email = $build->y_n("Do you want to run tests requiring a valid email address? y/n",'n');
110 if ($use_email) {
111 my $address = $build->prompt("Enter email address:");
112 $build->notes(email => $address);
115 else {
116 $build->notes(network => 0);
117 $build->log_info(" - will not run internet-requiring tests\n");
120 # Create the build script and exit
121 $build->create_build_script;