sub not_exposed_reason {
    my ($self, $not_exposed_reason) = @_;
    return
        $self->{_not_exposed_reason} = defined($not_exposed_reason)
            ? $not_exposed_reason
            : "No exposed reason";
}