[perl #127112] .wrap doesn't work for routines declared in roles

[via RT]

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


role Foo {
    sub foo { };
    BEGIN &foo.wrap(-> {});
}