# 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

Reply via email to