On Tue, 29 Nov 2016 03:36:09 -0800, gfldex wrote:
> EVAL 'role R { method overload-this(){...} }; class A does R {}; ';
> CATCH { default { say .^name, .Str } }
>
> # OUTPUT«X::Comp::AdHocMethod 'overload-this' must be implemented by A
> # because it is required by a role»
>
> # expected
> # OUT
# New Ticket Created by Wenzel Peppmeyer
# Please include the string: [perl #130211]
# in the subject line of all future correspondence about this issue.
# https://rt.perl.org/Ticket/Display.html?id=130211 >
EVAL 'role R { method overload-this(){...} }; class A does R {}; ';
CATCH { default {