7 use base qw(Root Sequence);
13 warn "'$1' detected in ID, changing to ';'\n" if $id =~ s/([:#])/;/
16 $self->SUPER::id($id);
20 my ($self, @entries) = @_;
23 warn "'$1' detected in entry, changing to ';'\n" if s/([:#,])/;/
26 $self->SUPER::seq(@entries);