sub common_start {
my $self = shift;
# when used as a setter, always set a value
$self->[14] = shift if (@_);
# when used as a getter
if (scalar(@$self) > 14) {
# return value for common coord_system if available (but avoid
# autovivification gotcha!)
return $self->[14];
} elsif ($self->need_project) {
# return undef if common value expected but not there (e.g. no projection
# found
return undef;
} else {
# return native value
return $self->start;
}
}
Inheritance diagram for Bio::EnsEMBL::IdMapping::TinyExon:
