# New Ticket Created by Sylvain Colinet
# Please include the string: [perl #127059]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/Ticket/Display.html?id=127059 >
root@testperl6:~/piko/qdorm# perl6 -e 'class A {has Str $.n; has Str @.m};
for A.^attributes -> $attr {say $attr.name, $attr.type};'
$!n(Str)
Method 'shortname' not found for invocant of class
'Perl6::Metamodel::CurriedRoleHOW'
in block <unit> at -e line 1
--
Sylvain "Skarsnik" Colinet
Victory was near but the power of the ring couldn't be undone
