view release on metacpan or  search on metacpan

install_util/BioStudioInstall.pm  view on Meta::CPAN

{
  my $BSB = shift;
  my $files = shift;
  return unless $files;

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

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

sub process_gbrowse_files
{
  my $BSB = shift;
  my $files = shift;
  return unless $files;

  my $gbrowse_dir = File::Spec->catdir($BSB->blib, 'gbrowse_plugins');
  File::Path::mkpath( $gbrowse_dir );

  foreach my $file (@{$files})
  {
    my $result = $BSB->copy_if_modified($file, $gbrowse_dir, 'flatten') or next;
    $BSB->fix_shebang_line($result) unless $BSB->is_vmsish;
    $BSB->make_executable($result);
  }
}

sub _endslash
{
  my ($self, $path) = @_;
  if ($path && substr($path, -1, 1) ne q{/})
  {