Ответ

MoKo 10.09.2016 01:47

И $self для этих методов B будет корректно указывать на получившийся объект (главная беда возможных ныне mixin'ов)?

А эту задачу предлагаю решить через расширение ^reflection:method, добавлением в него опциональным параметром куда привязать junction.
В общем тогда код ниже уже реально выводит m-b, D D.

@main[]

$d[^D::create[]]
^d.usage[]

#########################3
@CLASS
A

@m[]
m-a

#########################3
@CLASS
B

@BASE
A

@m[]
m-b, $self.CLASS_NAME

#########################3
@CLASS
C

@BASE
A

@usage[]
^m[] $self.CLASS_NAME

#########################3
@CLASS
D

@BASE
C

@create[]
$m[^reflection:method[$B:CLASS;m;$self]]

---