Select Code to Download

    $valobj->value = undef;

    $valobj->value = '';

    sub value : lvalue {
        my $this = shift;
        $this->{VALUE};
    }

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