Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Open sidebar
ensembl-gh-mirror
ensembl-hive
Commits
bd7a94f6
Commit
bd7a94f6
authored
Feb 06, 2014
by
Leo Gordon
Browse files
removed rearrange() from Process-Analysis
parent
e38de2d9
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
3 additions
and
6 deletions
+3
-6
modules/Bio/EnsEMBL/Hive/Analysis.pm
modules/Bio/EnsEMBL/Hive/Analysis.pm
+2
-1
modules/Bio/EnsEMBL/Hive/Process.pm
modules/Bio/EnsEMBL/Hive/Process.pm
+1
-5
No files found.
modules/Bio/EnsEMBL/Hive/Analysis.pm
View file @
bd7a94f6
...
...
@@ -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
;
}
...
...
modules/Bio/EnsEMBL/Hive/Process.pm
View file @
bd7a94f6
...
...
@@ -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
;
}
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment