sub getset {
    my self = shift;
    return $self->{thing} unless @_;
    die "Bad value" unless $_[0] =~ /valid/;
    $self->{thing} = $_[0];
}