Current behaviour:
$ perl6-m -e 'my $r1 = role { method foo() { 5 } }; my $r2 = role { method
foo() { 7 } }; my %hash{Any}; %hash{"quux" but $r1} = 9; %hash{"quux" but $r2}
= 11; say %hash.keys>>.foo'
(5 7)
Is that the expected answer?
# New Ticket Created by "Carl Mäsak"
# Please include the string: [perl #111498]
# in the subject line of all future correspondence about this issue.
# https://rt.perl.org:443/rt3/Ticket/Display.html?id=111498 >
rakudo: my $r1 = role { method foo() { 5 } }; my $r2 = role {
method foo() { 7 }