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 # Uses a custom subclass of Module::Build called ModuleBuildBioperl that
   7 # doesn't get installed
   8
   9 use strict;
  10 use ModuleBuildBioperl;
  11
  12 # Set up the ModuleBuildBioperl object
  13 my $build = ModuleBuildBioperl->new(
  14     module_name         => 'Bio',
  15     dist_name           => 'bioperl-run',
  16     dist_version        => 1.005002100,
  17     dist_author         => 'Bioperl Team <bioperl-l@bioperl.org>',
  18     dist_abstract       => 'bioperl-run - wrapper toolkit',
  19     license             => 'artistic',
  20     requires            => {
  21                             'perl'                      => '5.6.1',
  22                             'Bio::Root::Version'        => '1.5.2'
  23                            },
  24     recommends          => {
  25                             'Algorithm::Diff'           => '0/generating consensus protein family descriptions/Bio::Tools::Run::TribeMCL',
  26                             'XML::Parser::PerlSAX'      => '0/Pise Applications/Bio::Tools::Run::PiseJob',
  27                             'HTML::Parser'                              => '0/Pise Applications/Bio::Tools::Run::PiseJob',
  28                            },
  29     dynamic_config      => 1,
  30     create_makefile_pl  => 'passthrough'
  31
  32     #pm_files           => {} # modules in Bio are treated as if they were in lib and auto-installed
  33     #script_files       => [] # scripts in scripts directory are installed on-demand
  34 );
  35
  36 # Ask questions
  37 pise_email();
  38 $build->choose_scripts;
  39
  40 # Create the build script and exit
  41 $build->create_build_script;
  42
  43 exit;
  44
  45
  46 sub pise_email {
  47         my $proceed = $build->y_n("Do you want to run the Pise tests with a valid email address? y/n",'n');
  48
  49         my $path = File::Spec->catfile('t', 'pise-email.test');
  50     $build->add_to_cleanup($path);
  51     $build->add_to_manifest_skip($path);
  52
  53         if ($proceed) {
  54                 my $address = $build->prompt("Enter your email address", '');
  55                 if ($address && open(T,">t/pise-email.test")) {
  56                         print T "$address\n";
  57                         close T;
  58                 }
  59                 else {
  60                         $build->log_warn("Cannot open file t/pise-email.test for writing, or no email supplied - Pise tests will be run without an email address");
  61                 }
  62         }
  63         else {
  64                 if (-e $path) {
  65                         unlink $path;
  66                 }
  67         }
  68 }