Skip to content
Snippets Groups Projects
Commit c704cbc3 authored by Leo Gordon's avatar Leo Gordon
Browse files

cleanup: removed runnable(), output() and parameters() subroutines from...

cleanup: removed runnable(), output() and parameters() subroutines from Process as no longer used by Compara
parent 39726aa3
No related branches found
No related tags found
No related merge requests found
......@@ -558,70 +558,5 @@ sub cleanup_worker_temp_directory {
}
#################################################
#
# methods to make porting from RunnableDB easier
#
#################################################
sub parameters {
my $self = shift;
# return '' unless($self->analysis);
return $self->analysis->parameters;
}
=head2 runnable
Title : runnable
Usage : $self->runnable($arg)
Function: Sets a runnable for this RunnableDB
Returns : arrayref of Bio::EnsEMBL::Analysis::Runnable
Args : Bio::EnsEMBL::Analysis::Runnable
=cut
sub runnable {
my ($self,$arg) = @_;
if (!defined($self->{'runnable'})) {
$self->{'runnable'} = [];
}
if (defined($arg)) {
if ($arg->isa("Bio::EnsEMBL::Analysis::Runnable")) {
push(@{$self->{'runnable'}},$arg);
} else {
throw("[$arg] is not a Bio::EnsEMBL::Analysis::Runnable");
}
}
return $self->{'runnable'};
}
=head2 output
Title : output
Usage : $self->output()
Function:
Returns : Array of Bio::EnsEMBL::FeaturePair
Args : None
=cut
sub output {
my ($self) = @_;
unless (defined $self->{'output'}) {
$self->{'output'} = [];
foreach my $r (@{$self->runnable}){
push(@{$self->{'output'}}, @{$r->output});
}
}
return @{$self->{'output'}};
}
1;
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment