Commit 1b2c1039 authored by Ian Longden's avatar Ian Longden
Browse files

sub alias_exists added. returns 1 if it exists else 0

parent d317d92f
......@@ -567,11 +567,10 @@ sub add_alias{
=head2 get_alias
Arg [1] : name of the possible alias to get species for
Arg [2] : if set will not throw if not found.
Example : Bio::EnsEMBL::Registry->get_alias("Human");
Description: get proper species name.
Returntype : species name
Exceptions : if not found and second argument
Exceptions : none
=cut
......@@ -584,6 +583,26 @@ sub get_alias{
return $registry_register{'_ALIAS'}{$key};
}
=head2 alias_exists
Arg [1] : name of the possible alias to get species for
Arg [2] : if set will not throw if not found.
Example : Bio::EnsEMBL::Registry->get_alias("Human");
Description: does the species name exist.
Returntype : 1 if exists else 0
Exceptions : none
=cut
sub alias_exists{
my ($class, $key) = @_;
if(defined($registry_register{'_ALIAS'}{$key})){
return 1;
}
return 0;
}
=head2 change_access
Will change the username and password for a set of databases.
......
Markdown is supported
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