Build.PL

   1 #!/usr/bin/perl -w
   2
   3 # This is a Module::Build script for BioPerl-Run installation.
   4 # See http://search.cpan.org/~kwilliams/Module-Build/lib/Module/Build.pm
   5
   6 use strict;
   7 use warnings;
   8 use Module::Build;
   9
  10 my $build = Module::Build->new(
  11     dist_name           => 'BioPerl-Run',
  12     dist_version        => '1.006900',
  13     module_name         => 'Bio::Run',
  14     dist_author         => 'BioPerl Team <bioperl-l@bioperl.org>',
  15     dist_abstract       => 'BioPerl-Run - wrapper toolkit',
  16     license             => 'perl',
  17     requires            => {
  18                             'perl'               => '5.6.1',
  19                             'Bio::Root::Version' => '1.006900'
  20                            },
  21     recommends          => {
  22                             'Algorithm::Diff' => 0,     # generating consensus protein family descriptions: Bio::Tools::Run::TribeMCL
  23                             'IPC::Run'        => 0,     # Glimmer and Genemark application wrappers: Bio::Tools::Run::Glimmer Bio::Tools::Run::Genemark
  24                             'IO::String'      => 0,     # generating Bio::Tree::Tree from strings: Bio::Tools::Run::Phylo::Phylip::Consense
  25                             'XML::Twig'       => 0,     # processing XML data: Bio::Tools::Run::EMBOSSacd
  26                             'File::Sort'      => 0,     # BEDTools
  27                             'Config::Any'     => 0,     # MCS, Match
  28                             'SOAP::Lite'      => 0.716, # A bug that affects SoapEU-unit.t tests was fixed in this version (many levels deep object throws error)
  29                            },
  30     get_options         => {
  31                             accept  => { },
  32                             network => { },
  33                             install_scripts => { }
  34                            },
  35     auto_features       => {
  36                             Network => {
  37                                         description => "Enable tests that need an internet connection",
  38                                         requires    => { 'LWP::UserAgent' => 0 }
  39                                        }
  40                            },
  41     dynamic_config      => 1,
  42     #create_makefile_pl  => 'passthrough'
  43 );
  44
  45 my $accept = $build->args->{accept};
  46
  47 # Optionally have script files installed.
  48 if ($build->args('install_scripts') or $accept ? 0 : $build->y_n("Install scripts? y/n", 'n')) {
  49     my $files = $build->_find_file_by_type('PLS', 'scripts');
  50
  51     my $script_build = File::Spec->catdir($build->blib, 'script');
  52
  53     my @tobp;
  54     while (my ($file, $dest) = each %$files) {
  55         $dest = 'bp_'.File::Basename::basename($dest);
  56         $dest =~ s/PLS$/pl/;
  57         $dest = File::Spec->catfile($script_build, $dest);
  58         $build->copy_if_modified(from => $file, to => $dest);
  59         push @tobp, $dest;
  60     }
  61
  62     $build->script_files(\@tobp);
  63 }
  64
  65 # Do network tests?
  66 my $do_network_tests = 0;
  67 if ($build->args('network')) {
  68     $do_network_tests = $build->feature('Network');
  69 }
  70 elsif ($build->feature('Network')) {
  71     $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');
  72 }
  73
  74 if ($do_network_tests) {
  75     $build->notes(network => 1);
  76     $build->log_info("  - will run internet-requiring tests\n");
  77     my $use_email = $build->y_n("Do you want to run tests requiring a valid email address? y/n",'n');
  78     if ($use_email) {
  79         my $address = $build->prompt("Enter email address:");
  80         $build->notes(email => $address);
  81     }
  82 }
  83 else {
  84     $build->notes(network => 0);
  85     $build->log_info("  - will not run internet-requiring tests\n");
  86 }
  87
  88 # Create the build script and exit
  89 $build->create_build_script;
  90
  91 exit;