sub not_exposed_reason
{
    my ($self, $not_exposed_reason) = @_;
    $self->{_not_exposed_reason} = $not_exposed_reason if defined($not_exposed_reason);
    return $self->{_not_exposed_reason};
}