sub new {
    my $class = shift;
    croak "incorrect number of arguments" if @_ % 2;
    ...
}