package Concise;

use strict;
use warnings;
use Carp;

use base qw(Root Sequence);

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

	if (defined $id) {
		warn "'$1' detected in ID, changing to ';'\n" if $id =~ s/([:#])/;/
	}

	$self->SUPER::id($id);
}

sub seq {
	my ($self, @entries) = @_;

	for (@entries) {
		warn "'$1' detected in entry, changing to ';'\n" if s/([:#,])/;/
	}

	$self->SUPER::seq(@entries);
}

1;