sub thisvariable {
        my $self = shift;
        if (@_) { $self->{THISVARIABLE} = shift }
        return $self->{THISVARIABLE};
    }