sub set_normalized_designation {
    my $self = shift;
    my $designation = shift;

    $self->ensure_normalization($designation);
    $self->{normalized_designation} = shift;
}

sub ensure_normalization {
    my $self = shift;
    my $designation = shift;
    $designation =~ /.../ or
        die "$designation is not correctly normalized";
}