Skip to content
Snippets Groups Projects
Commit a3ad0eb5 authored by Ian Longden's avatar Ian Longden
Browse files

merged adaptors removed

parent b3e3219d
No related branches found
No related tags found
No related merge requests found
......@@ -90,7 +90,6 @@ sub new {
rearrange([qw(SPECIES GROUP DBCONN DNADB)], @args);
if(defined($con)){
$self->dbc($con);
}
else{
......@@ -100,9 +99,7 @@ sub new {
if(defined($species)){
$self->species($species);
}
# else{
# $self->species("DEFAULT");
# }
if(defined($group)){
$self->group($group);
}
......@@ -117,19 +114,6 @@ sub new {
}
sub new_merged{
my($class, $species, @args) = @_;
my $self ={};
bless $self,$class;
$self->species($species);
$self->group("_MERGED_");
return $self;
}
=head2 dbc
......@@ -688,13 +672,8 @@ sub AUTOLOAD {
throw("Could not work out type for $AUTOLOAD \n");
}
my $ret = undef;
if($self->group() eq "_MERGED_"){
$ret = $reg->get_MergedAdaptor($self->species(),$type);
}
else{
$ret = $reg->get_adaptor($self->species(),$self->group(),$type);
}
my $ret = $reg->get_adaptor($self->species(),$self->group(),$type);
if($ret){
return $ret;
}
......
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