sub value {
        my ($self, $value) = @_;
        if (defined $value) {
            $self->{value} = $value;
        };
    };
    $valobj->value(undef);