view release on metacpan or  search on metacpan

lib/Bio/ToolBox/Parser/ucsc/builder.pm  view on Meta::CPAN

		}
	}

	# record the type of transcript
	$ucsc->{counts}{ $transcript->primary_tag } += 1;

	# transcript is complete
	return $transcript;
}

sub update_attributes {
	my ( $self, $seqf ) = @_;

	# add Note if possible
	if ( $self->note ) {
		$self->add_unique_attribute( $seqf, 'Note', $self->note );
	}

	# add refSeq identifier if possible
	if ( $self->refseq ) {
		$self->add_unique_attribute( $seqf, 'Dbxref', 'RefSeq:' . $self->refseq );