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