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