[perl #47794] [BUG] objects - :method doesn't work with :outer()

[via RT]

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


The :method flag on subs doesn't seem to work when 
the :outer flag is present.  Here's a test case:

    .sub main
        $P0 = newclass 'Foo'
    
        $P9 = get_hll_global ['Foo'], 'abc'
        $P9()
    
        $P1 = new 'Foo'
        $P1.'xyz'()
    .end
    
    .namespace ['Foo']
    
    .sub abc
        say 'abc'
    .end
    
    .sub xyz :outer('abc') :method
        say 'xyz'
    .end
    $ ./parrot x.pir
    abc
    Method 'xyz' not found
    current instr.: 'main' pc 21 (x.pir:8)
    $

However, it does seem to work if one uses add_method 
instead of the :method pragma:

    $ cat y.pir
    .sub main
        $P0 = newclass 'Foo'
    
        $P9 = get_hll_global ['Foo'], 'abc'
        $P9()
    
        $P9 = get_hll_global ['Foo'], 'xyz'
        $P0.'add_method'('xyz', $P9)
    
        $P1 = new 'Foo'
        $P1.'xyz'()
    .end
    
    .namespace ['Foo']
    
    .sub abc
        say 'abc'
    .end
    
    .sub xyz :outer('abc')
        .param pmc self
        say 'xyz'
    .end
    $ ./parrot y.pir
    abc
    xyz
    $

This isn't a super-huge priority at the moment... for the
time being we can simply have PCT not attach any :outer
flags to methods.  But eventually we'll probably want to
have this working.

Thanks!

Pm