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
Commits
2131d21a
Commit
2131d21a
authored
Aug 12, 2013
by
Magali Ruffier
Browse files
removed 3 lines of commented out code
replaced reg with registry for more explicit code
parent
7cb1a222
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
10 deletions
+6
-10
modules/Bio/EnsEMBL/DBSQL/DBAdaptor.pm
modules/Bio/EnsEMBL/DBSQL/DBAdaptor.pm
+6
-10
No files found.
modules/Bio/EnsEMBL/DBSQL/DBAdaptor.pm
View file @
2131d21a
...
...
@@ -64,7 +64,7 @@ use Bio::EnsEMBL::Utils::Argument qw(rearrange);
use
Bio::EnsEMBL::
Registry
;
use
Bio::EnsEMBL::Utils::
ConfigRegistry
;
my
$reg
=
"
Bio::EnsEMBL::Registry
";
my
$reg
istry
=
"
Bio::EnsEMBL::Registry
";
=head2 new
...
...
@@ -147,10 +147,6 @@ sub new {
$self
=
Bio::EnsEMBL::Utils::ConfigRegistry::
gen_load
(
$self
);
# if(!defined($species) ){
# $reg->find_and_add_aliases($self);
# }
$self
->
species_id
(
$species_id
||
1
);
$self
->
is_multispecies
(
defined
(
$is_multispecies
)
...
...
@@ -555,7 +551,7 @@ sub add_ExternalFeatureFactory{
sub
get_adaptor
{
my
(
$self
,
$canonical_name
,
@other_args
)
=
@_
;
return
$reg
->
get_adaptor
(
$self
->
species
(),
$self
->
group
(),
$canonical_name
);
return
$reg
istry
->
get_adaptor
(
$self
->
species
(),
$self
->
group
(),
$canonical_name
);
}
...
...
@@ -580,7 +576,7 @@ sub get_adaptor {
sub
set_adaptor
{
my
(
$self
,
$canonical_name
,
$module
)
=
@_
;
$reg
->
add_adaptor
(
$self
->
species
(),
$self
->
group
(),
$canonical_name
,
$module
);
$reg
istry
->
add_adaptor
(
$self
->
species
(),
$self
->
group
(),
$canonical_name
,
$module
);
return
$module
;
}
...
...
@@ -895,11 +891,11 @@ sub dnadb {
if
(
@
_
)
{
my
$arg
=
shift
;
$reg
->
add_DNAAdaptor
(
$self
->
species
(),
$self
->
group
(),
$arg
->
species
(),
$arg
->
group
());
$reg
istry
->
add_DNAAdaptor
(
$self
->
species
(),
$self
->
group
(),
$arg
->
species
(),
$arg
->
group
());
}
# return $self->{'dnadb'} || $self;
return
$reg
->
get_DNAAdaptor
(
$self
->
species
(),
$self
->
group
())
||
$self
;
return
$reg
istry
->
get_DNAAdaptor
(
$self
->
species
(),
$self
->
group
())
||
$self
;
}
...
...
@@ -917,7 +913,7 @@ sub AUTOLOAD {
throw
(
sprintf
(
"
Could not work out type for %s
\n
",
$AUTOLOAD
)
);
}
my
$ret
=
$reg
->
get_adaptor
(
$self
->
species
(),
$self
->
group
(),
$type
);
my
$ret
=
$reg
istry
->
get_adaptor
(
$self
->
species
(),
$self
->
group
(),
$type
);
return
$ret
if
$ret
;
...
...
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