proc inspect {obj} {
    set obj [uplevel 1 [list namespace which -command $obj]]
    set isa [lmap type {object class metaclass} {
        if {![info object isa $type $obj]} continue
        set type
    }]
    if {"class" in $isa} {
        lappend info {class superclasses} {class mixins} {class filters}
        lappend info {class methods} {class methods}
        lappend info {class variables} {class variables}
    }
    if {"object" in $isa} {
        lappend info {object class} {object mixins} {object filters}
        lappend info {object methods} {object methods}
        lappend info {object variables} {object variables}
        lappend info {object namespace} {object vars} ;#{object commands}
    }
    set result [dict create isa $isa]
    foreach args $info {
        dict set result $args [info {*}$args $obj]
        foreach opt {-private -all} {
            catch {
                dict set result [list {*}$args $opt] [info {*}$args $obj $opt]
            }
        }
    }
    dict filter $result value {?*}
}

proc pdict {d args} {   ;# analogous to parray
    set maxl [::tcl::mathfunc::max {*}[map {string length} [dict keys $d]]]
    dict for {key value} $d {
        puts stdout [format "%-*s = %s" $maxl $key $value]
    }
}

#extend ::oo::InfoClass {
#    proc commands {o args} {
#        map {::namespace tail} [info commands [info object namespace $o]::*]
#    }
#}

% pdict [inspect oo::object]
isa                      = object class
class methods            = destroy
class methods -private   = unknown eval varname variable destroy <cloned>
class methods -all       = destroy
object class             = ::oo::class
object methods -all      = create destroy new
object namespace         = ::oo::Obj1
object commands          = my
object commands -private = my
object commands -all     = my
% pdict [inspect oo::class]
isa                      = object class metaclass
class superclasses       = ::oo::object
class methods            = create new
class methods -private   = create createWithNamespace new
class methods -all       = create destroy new
object class             = ::oo::class
object methods -all      = create destroy
object namespace         = ::oo::Obj2
object commands          = my
object commands -private = my
object commands -all     = my