Bio::EnsEMBL::ExternalData::CDSTrack Ccds
Included librariesPackage variablesGeneral documentationMethods
Toolbar
WebCvsRaw content
Package variables
No package variables defined.
Included modules
Bio::EnsEMBL::ExternalData::CDSTrack::DBSQL::CcdsAdaptor
Bio::EnsEMBL::Storable
Bio::EnsEMBL::Utils::Argument qw ( rearrange )
Bio::EnsEMBL::Utils::Exception qw ( throw )
Inherit
Bio::EnsEMBL::Storable
Synopsis
No synopsis!
Description
No description!
Methods
ccds_id
No description
Code
get_all_GroupVersions
No description
Code
group_id
No description
Code
latest_version
No description
Code
new
No description
Code
Methods description
None available.
Methods code
ccds_iddescriptionprevnextTop
sub ccds_id {
  my $self = shift;
  return $self->dbID;
}
get_all_GroupVersionsdescriptionprevnextTop
sub get_all_GroupVersions {
  my $self = shift;

  if( ! exists $self->{'_groupversion_array'} ) {
    if( defined $self->adaptor() ) {
      my $gva = $self->adaptor()->db()->get_GroupVersionAdaptor();
      my $groupversions = $gva->fetch_all_by_CCDS_ID( $self->ccds_id );
      $self->{'_groupversion_array'} = $groupversions;
    }
  }
  return $self->{'_groupversion_array'};
}
group_iddescriptionprevnextTop
sub group_id {
  my $self = shift;
  $self->{'group_id'} = shift if ( @_ );
  return $self->{'group_id'};
}
latest_versiondescriptionprevnextTop
sub latest_version {
  my $self = shift;
  $self->{'latest_version'} = shift if ( @_ );
  return $self->{'latest_version'};
}


1;
}
newdescriptionprevnextTop
sub new {
  my($class,@args) = @_;

  my $self = bless {},$class;

  my ($dbid, $group_id, $latest_version, $adaptor) =  
	  rearrange([qw(
	                DBID
                  GROUP_ID
                  LATEST_VERSION
                  ADAPTOR
			)],@args);
 
  $self->dbID           ( $dbid );
  $self->group_id       ( $group_id );
  $self->latest_version ( $latest_version );
  $self->adaptor        ( $adaptor );
  
  return $self;
}
General documentation
No general documentation available.