7 use base qw(Root Sequence);
10 my ( $self, $id ) = @_;
14 #warn "'$1' detected in ID, changing to ';'\n" if $id =~ s/([:#])/;/
17 $self->SUPER::id($id);
21 my ( $self, @entries ) = @_;
24 warn "'$1' detected in entry, changing to ';'\n" if s/([:#,])/;/;
27 $self->SUPER::seq(@entries);