Included libraries | Package variables | General documentation | Methods |
WebCvs | Raw content |
exon_end | No description | Code |
exon_start | No description | Code |
new | No description | Code |
exon_end | description | prev | next | Top |
my $self = shift; $self->{'chr_stop'} = shift if ( @_ ); return $self->{'chr_stop'}; } 1;}
exon_start | description | prev | next | Top |
my $self = shift; $self->{'chr_start'} = shift if ( @_ ); return $self->{'chr_start'};}
new | description | prev | next | Top |
my($class,@args) = @_; my $self = bless {},$class; my ($dbid, $exon_start, $exon_end, $adaptor) = rearrange([qw(DBID EXON_START EXON_END ADAPTOR )],@args); $self->dbID ( $dbid ); $self->exon_start ( $exon_start ); $self->exon_end ( $exon_end ); $self->adaptor ( $adaptor ); return $self;}