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

removed rearrange() from Process-Analysis

parent e38de2d9
No related branches found
No related tags found
No related merge requests found
......@@ -148,7 +148,8 @@ sub get_compiled_module_name {
sub process {
my $self = shift;
my $runnable_object = $self->get_compiled_module_name->new( -analysis => $self );
my $runnable_object = $self->get_compiled_module_name->new();
$runnable_object->analysis( $self );
return $runnable_object;
}
......
......@@ -100,7 +100,6 @@ use strict;
use warnings;
use Bio::EnsEMBL::Registry;
use Bio::EnsEMBL::Utils::Argument ('rearrange');
use Bio::EnsEMBL::Utils::Exception ('throw');
use Bio::EnsEMBL::Hive::DBSQL::DBConnection;
......@@ -111,13 +110,10 @@ use base ('Bio::EnsEMBL::Utils::Exception'); # provide these methods for deriv
sub new {
my ($class, @args) = @_;
my $class = shift @_;
my $self = bless {}, $class;
my ($analysis) = rearrange([qw( ANALYSIS )], @args);
$self->analysis($analysis) if($analysis);
return $self;
}
......
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