view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

  'codon_tables/Mycoplasma_genitalium.ct',
  'codon_tables/Mycoplasma_genitalium.rscu',
  'codon_tables/Oryza_sativa.rscu',
  'codon_tables/Saccharomyces_cerevisiae.rscu',
  'codon_tables/Standard.ct',
  'codon_tables/Yarrowia_lipolytica.rscu',
  'enzymes/all_enzymes',
  'enzymes/blunts',
  'enzymes/IIB',
  'enzymes/nonpal',
  'enzymes/nonpal_short',
  'enzymes/nonpal_and_IIB',
  'enzymes/outside',
  'enzymes/standard',
  'enzymes/standard_and_IIB',
  'enzymes/test',
];
$GDB->add_build_element('GeneDesign');
process_conf_files($GDB, $confs);
$GDB->install_path(GeneDesign => $GDB->config_data('conf_path'));


my $tsp = $spath;
$tsp .= q{/} if substr($tsp, -1, 1) ne q{/};
$GDB->config_data(script_path => $tsp);
$GDB->install_path(script => $GDB->config_data('script_path'));
print 'Scripts will be in ', $GDB->config_data('script_path'), "\n";

my $ttp = $tpath;
$ttp .= q{/} if substr($ttp, -1, 1) ne q{/};
$GDB->config_data(tmp_path => $ttp);
print 'Temporary files will be written to ', $GDB->config_data('tmp_path'), "\n";

if ($GDB->feature('graphing'))
{
  $GDB->config_data(graphing_support => $g);
  print 'Installing graphics support', "\n";
}
else
{
  $GDB->config_data(graphing_support => -1);
  print "$g; Graphing will not be installed\n"; 
}
print "\n";

$GDB->create_build_script();

print "\n";

sub process_conf_files
{
  my $build = shift;
  my $files = shift;
  return unless $files;

  my $conf_dir = File::Spec->catdir($build->blib, 'GeneDesign');
  File::Path::mkpath( $conf_dir );

  foreach my $file (@{$files})
  {
    my $result = $build->copy_if_modified($file, $conf_dir) or next;
    $build->fix_shebang_line($result) unless $build->is_vmsish;
  }
  return;
}