3 # This is a Module::Build script for BioPerl-Run installation.
4 # See http://search.cpan.org/~kwilliams/Module-Build/lib/Module/Build.pm
10 my $build = Module
::Build
->new(
11 dist_name
=> 'BioPerl-Run',
12 dist_version
=> '1.007000',
13 module_name
=> 'Bio::Run',
14 dist_author
=> 'BioPerl Team <bioperl-l@bioperl.org>',
15 dist_abstract
=> 'BioPerl-Run - wrapper toolkit',
21 'Bio::Root::Version' => '1.007000',
22 'Bio::Root::Test' => 0,
26 'Bio::Root::Version' => '1.007000',
27 'Bio::Root::Root' => 0,
30 'Algorithm::Diff' => 0, # generating consensus protein family descriptions: Bio::Tools::Run::TribeMCL
31 'IPC::Run' => 0, # Glimmer and Genemark application wrappers: Bio::Tools::Run::Glimmer Bio::Tools::Run::Genemark
32 'IO::String' => 0, # generating Bio::Tree::Tree from strings: Bio::Tools::Run::Phylo::Phylip::Consense
33 'XML::Twig' => 0, # processing XML data: Bio::Tools::Run::EMBOSSacd
34 'File::Sort' => 0, # BEDTools
35 'Config::Any' => 0, # MCS, Match
36 'SOAP::Lite' => 0.716, # A bug that affects SoapEU-unit.t tests was fixed in this version (many levels deep object throws error)
41 install_scripts
=> { }
45 description
=> "Enable tests that need an internet connection",
46 requires
=> { 'LWP::UserAgent' => 0 }
50 #create_makefile_pl => 'passthrough'
53 my $accept = $build->args->{accept};
55 # Optionally have script files installed.
56 if ($build->args('install_scripts') or $accept ?
0 : $build->y_n("Install scripts? y/n", 'n')) {
57 my $files = $build->_find_file_by_type('PLS', 'scripts');
59 my $script_build = File
::Spec
->catdir($build->blib, 'script');
62 while (my ($file, $dest) = each %$files) {
63 $dest = 'bp_'.File
::Basename
::basename
($dest);
65 $dest = File
::Spec
->catfile($script_build, $dest);
66 $build->copy_if_modified(from
=> $file, to
=> $dest);
70 $build->script_files(\
@tobp);
74 my $do_network_tests = 0;
75 if ($build->args('network')) {
76 $do_network_tests = $build->feature('Network');
78 elsif ($build->feature('Network')) {
79 $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');
82 if ($do_network_tests) {
83 $build->notes(network
=> 1);
84 $build->log_info(" - will run internet-requiring tests\n");
85 my $use_email = $build->y_n("Do you want to run tests requiring a valid email address? y/n",'n');
87 my $address = $build->prompt("Enter email address:");
88 $build->notes(email
=> $address);
92 $build->notes(network
=> 0);
93 $build->log_info(" - will not run internet-requiring tests\n");
96 # Create the build script and exit
97 $build->create_build_script;