[perl #56650] [BUG] class created from namespace fails MMD

[Patrick R. Michaud (via RT)]

# New Ticket Created by  Patrick R. Michaud 
# Please include the string:  [perl #56650]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=56650 >


If we create a class from a namespace, then objects created
from the class don't participate properly in Parrot's MMD:

    $ cat v.pir
    .sub 'main' :main
        $P0 = get_hll_namespace ['ABC']
        $P1 = newclass $P0
        $P2 = new $P1
        'foo'($P2)
    .end
    
    .sub 'foo' :multi(_)
        say 'wrong'
    .end
    
    .sub 'foo' :multi(['ABC'])
        say 'right'
    .end
    
    .namespace ['ABC']
    .sub 'xyz' :method
        say 'ABC::xyz'
    .end
    
    $ ./parrot v.pir
    wrong
    $

Pm