sub initialize {
    return shift->call_super_before(\@_, sub {
	my($self) = @_;
        $self->die($self->get('values'), undef, 'number of elements must be even')
	    unless @{$self->get('values')} % 2 == 0;
	return;
    });
}