my $runnabledb = Bio::EnsEMBL::Analysis::RunnableDB::FirstEF->
new(
-input_id => 'contig::AL805961.22.1.166258:1:166258:1',
-db => $db,
-analysis => $analysis,
);
$runnabledb->fetch_input;
$runnabledb->run;
$runnabledb->write_output;
sub fetch_input
{ my ($self) = @_;
my $slice = $self->fetch_sequence($self->input_id, $self->db, ['']);
$self->query($slice);
if(!$self->analysis->program_file){
$self->analysis->program_file('firstef');
}
my %parameters;
if($self->parameters_hash){
%parameters = %{$self->parameters_hash};
}
my $runnable = Bio::EnsEMBL::Analysis::Runnable::FirstEF->new
(
-query => $self->query,
-program => $self->analysis->program_file,
-analysis => $self->analysis,
-param_dir => $PARAMETERS_DIR,
-parse_script => $PARSE_SCRIPT,
%parameters,
);
$self->runnable($runnable);
return 1; } |