diff variant_effect_predictor/Bio/EnsEMBL/Pipeline/FASTA/Base.pm @ 0:1f6dce3d34e0

Uploaded

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/variant_effect_predictor/Bio/EnsEMBL/Pipeline/FASTA/Base.pm	Thu Apr 11 02:01:53 2013 -0400
@@ -0,0 +1,22 @@
+package Bio::EnsEMBL::Pipeline::FASTA::Base;
+
+use strict;
+use warnings;
+use base qw/Bio::EnsEMBL::Pipeline::Base/;
+
+use File::Spec;
+
+sub fasta_path {
+  my ( $self, @extras ) = @_;
+  return $self->get_dir('fasta', $self->param('species'), @extras);
+}
+
+sub old_path {
+  my ($self, $species) = @_;
+  my $base = $self->param('ftp_dir');
+  my $prod = $self->production_name($species);
+  my $release = $self->param('previous_release');
+  my $dir = File::Spec->catdir($base, "release-$release", 'fasta', $prod, 'dna');
+}
+
+1;