# New Ticket Created by Wenzel Peppmeyer
# Please include the string: [perl #130211]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/Ticket/Display.html?id=130211 >
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
# OUTPUT«X::Comp::AdHocMethod 'overload-this' must be implemented by A
# because it is required by a role R»
# Please update the docs at
# https://docs.perl6.org/language/typesystem#role or file a github issue