[perl #66978] [BUG] nextsame in method dispatch doesn't pass on self

[via RT]

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


-- code --
class A {
    method a(*...@a) {
        say "A self={self.perl} ar...@a.perl}"
    }
}

class B is A {
    method a(*...@a) {
        nextwith("FIRST ARG", "SECOND ARG")}
}

B.new.a()

-- output --

A self="FIRST ARG" arg=["SECOND ARG"]

-- what I expected --

A self=B.new() arg=["FIRST ARG", "SECOND ARG"]

-- comment --

If you are supposed to supply self as the first argument to nextwith
for this to work, I think I should get a "Method not found" error in
this case.


-- 
Johan Viklund