diff --git a/modules/Bio/EnsEMBL/Translation.pm b/modules/Bio/EnsEMBL/Translation.pm index c223393464ac4e061f6b2adda70fe753333903fe..bf514177ff5a913f3aea66ce27f3dc10cfa71a6a 100755 --- a/modules/Bio/EnsEMBL/Translation.pm +++ b/modules/Bio/EnsEMBL/Translation.pm @@ -334,5 +334,29 @@ sub transform { } } +=head2 get_all_DBLinks + + Arg [1] : + Example : + Description: + Returntype : + Exceptions : + Caller : + +=cut + +sub get_all_DBLinks { + my $self = shift; + + if( !defined $self->{'_db_link'} ) { + $self->{'_db_link'} = []; + if( defined $self->adaptor ) { + $self->adaptor->db->get_DBEntryAdaptor->fetch_all_by_Translation($self); + } + } + + return $self->{'_db_link'}; +} + 1;