@USE
/tests/051b.p

@CLASS
t

@BASE
b

@auto[]
$test[t]

@create[]
$test[ct]

@method[]
t.test=$test<br>
^b:method[]<br>
^method2[]

@child_method[]
cm

@method2[]
tm2

@tjunctionsm[hash][tl]
$tl[local-to-tjunctionsm]
$hash.key