[perl #114034] Declaring a class with the name of the first part of a multi-joined name makes the multi-joined name unavailable

[via RT]

# New Ticket Created by  Moritz Lenz 
# Please include the string:  [perl #114034]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org:443/rt3/Ticket/Display.html?id=114034 >


13:29 < moritz> r: my class A::B { }; my class A { method x { say A::B }
}; A.x
13:29 <+p6eval> rakudo 3e0008: OUTPUT«Could not find symbol 'A::&B'␤  in
method x at /tmp/OvsGZroBwS:1␤  in block <anon> at /tmp/OvsGZroBwS:1␤␤»
13:30 < jnthn> That should probably work. Though I suspect the
workaround is...
13:31 < jnthn> r: my class A { ... }; my class A::B { }; my class A {
method x { say A::B } }; A.x
13:31 <+p6eval> rakudo 3e0008: OUTPUT«A::B()␤»