java.bean APIを使用して非公開クラスのインスタンスを検査する

Question

Clojureの(bean obj)を使用して、オブジェクトに関連する不変のマップを取得しようとしています。 Clojureの1.4.0標準ライブラリで

が、これは大体そう（Clojureのに慣れていない人々へのアクセス意図擬似コードに変換する）のように実装されている：

import java.beans.PropertyDescriptor; 
import java.beans.Introspector; 

function introspect(Object obj) { 
    Class clazz = obj.getClass(); 
    PropertyDescriptor descriptors[] = 
    Introspector 
    .getBeanInfo(clazz) 
    .getPropertyDescriptors(); 
    Map retval = new HashMap(); 

    for(pd in descriptors) { 
    name = pd.getName(); 
    method = pd.getReadMethod(); 
    if(method.getParameterTypes().length != 0) 
     continue; 
    retval.set(name, method.invoke(obj, nil)); 
    } 
    /* the real implementation does more magic below here, 
    but the above is sufficient for this question */ 
    return retval; 
} 

ほとんどの部分については、これが正常に動作します - java.bean.IntrospectorデフォルトのBeanInfo実装の非公開メソッドは返されません。しかし、検査されているオブジェクトが非publicクラスのインスタンスである場合、実際に呼び出すことはできませんが、IllegalArgumentException（ "非公開のpublicメソッドを呼び出すことはできません。パブリッククラス "）。

どのようにこれを修正できますか？ java.lang.Classのドキュメントを見ていますが、try/catchブロックが含まれていないクラスのアクセス許可を判断する明白な方法は表示されませんjava.lang.SecurityException ...正確には私には当てはまりませんベストプラクティスさらに、非publicクラスのメソッドがパブリックインターフェイスを実装する場合、このメソッドが安全に呼び出せるかどうかを判断するためのいくつかのメカニズムが利用可能である必要があります。

Answer 1

あなたはクラスの修飾子を発見することができますので、このようなものは、あなたがオブジェクトはプライベートクラスのインスタンスであるかどうかを確認できるようにする必要があります（頻繁にテストされていない）

public boolean isInstanceOfPrivateClass(Object o) { 
    return Modifier.isPrivate(o.getClass().getModifiers()); 
} 

Answer 2

この問題はで解決することができます継承ツリーを検索して、同じメソッドを含むパブリッククラスまたはインターフェイスを探します。 （それが非ゼロ値を返した場合）(public-version-of-method m)なくmに.invokeを呼び出すか、その受け入れ次いで

(defn- public-version-of-method [^Method method] 
    "returns a Method built against a public interface or superclass 
    declaring this method, or nil if none exists" 
    (let [sig (method-sig method)] 
    (loop [current-class (. method (getDeclaringClass)) 
      pending-supers (seq (supers current-class))] 
     (if (and current-class 
       (Modifier/isPublic (.getModifiers current-class)) 
       (some (fn [x] (= sig (method-sig x))) 
         (. current-class (getDeclaredMethods)))) 
     (. current-class (getDeclaredMethod 
          (.getName method) 
          (.getParameterTypes method))) 
     (if pending-supers 
      (recur (first pending-supers) 
        (next pending-supers)) 
      nil))))) 

...と：Clojureのは、これは次のように（貧弱な性能を有するにもかかわらず）に実装することができますこのメソッドがnil値を返す場合、メソッドはpublicにアクセスできません。

（上のコードは、CLJ-978の提案パッチの一部としてアップストリームに提出されています）。