Bio::EnsEMBL::ExternalData::CDSTrack CcdsStatus
Included librariesPackage variablesGeneral documentationMethods
Toolbar
WebCvsRaw content
Package variables
No package variables defined.
Included modules
Bio::EnsEMBL::ExternalData::CDSTrack::DBSQL::CcdsStatusAdaptor
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_status
No description
Code
get_all_GroupVersions
No description
Code
new
No description
Code
Methods description
None available.
Methods code
ccds_statusdescriptionprevnextTop
sub ccds_status {
  my $self = shift;
  $self->{'ccds_status'} = shift if ( @_ );
  return $self->{'ccds_status'};
}



1;
}
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_status( $self->ccds_status );
      $self->{'_groupversion_array'} = $groupversions;
    }
  }
  return $self->{'_groupversion_array'};
}
newdescriptionprevnextTop
sub new {
  my($class,@args) = @_;

  my $self = bless {},$class;

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