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