ensembl InterimTranscript
Package variablesGeneral documentationMethods
Toolbar
WebCvsRaw content
Package variables
No package variables defined.
Included modules
Bio::EnsEMBL::Utils::Exception qw ( warning )
Synopsis
No synopsis!
Description
No description!
Methods
add_Exon
No description
Code
add_StatMsg
No description
Code
cdna_coding_end
No description
Code
cdna_coding_start
No description
Code
flush_Exons
No description
Code
get_all_Exons
No description
Code
get_all_StatMsgs
No description
Code
last_StatMsg
No description
Code
move_cdna_coding_end
No description
Code
move_cdna_coding_start
No description
Code
new
No description
Code
stable_id
No description
Code
version
No description
Code
Methods description
None available.
Methods code
add_ExondescriptionprevnextTop
sub add_Exon {
  my $self = shift;
  my $exon = shift;

  push @{$self->{'exons'}}, $exon;
}
add_StatMsgdescriptionprevnextTop
sub add_StatMsg {
  my $self = shift;
  my $statMsg = shift;
  push @{$self->{'StatMsgs'}}, $statMsg;
}
cdna_coding_enddescriptionprevnextTop
sub cdna_coding_end {
  my $self = shift;
  $self->{'cdna_coding_end'} = shift if(@_);
  return $self->{'cdna_coding_end'};
}
cdna_coding_startdescriptionprevnextTop
sub cdna_coding_start {
  my $self = shift;
  $self->{'cdna_coding_start'} = shift if(@_);
  return $self->{'cdna_coding_start'};
}
flush_ExonsdescriptionprevnextTop
sub flush_Exons {
  my $self = shift;
  $self->{'exons'} = [];
}
get_all_ExonsdescriptionprevnextTop
sub get_all_Exons {
  my $self = shift;

  return $self->{'exons'};
}
get_all_StatMsgsdescriptionprevnextTop
sub get_all_StatMsgs {
  my $self = shift;
  return @{$self->{'StatMsgs'}};
}
last_StatMsgdescriptionprevnextTop
sub last_StatMsg {
  my $self = shift;

  my @msgs = @{$self->{'StatMsgs'}};
  return undef if(!@msgs);
  return $msgs[$#msgs];
}
move_cdna_coding_enddescriptionprevnextTop
sub move_cdna_coding_end {
  my $self = shift;
  my $offset = shift;
  $self->{'cdna_coding_end'} += $offset;
}


1;
}
move_cdna_coding_startdescriptionprevnextTop
sub move_cdna_coding_start {
  my $self = shift;
  my $offset = shift;
  $self->{'cdna_coding_start'} += $offset;
}
newdescriptionprevnextTop
sub new {
  my $class = shift;

  return bless {'exons' => [],
                'StatsMsgs' => []}, $class;
}
stable_iddescriptionprevnextTop
sub stable_id {
  my $self = shift;
  $self->{'stable_id'} = shift if(@_);
  return $self->{'stable_id'};
}
versiondescriptionprevnextTop
sub version {
  my $self = shift;
  $self->{'version'} = shift if(@_);
  return $self->{'version'};
}
General documentation
No general documentation available.