my %valid = map { $_ => 1 } qw( Wheels Doors Color Passengers );
my %ro    = map { $_ => 1 } qw( Wheels );

sub _read_only {
    my ($self, $option) = @_;
    return defined $ro{$option} ? 1 : 0;
}