RosettaCodeData/Task/Collections/Perl-6/collections-4.pl6
2018-06-22 20:57:24 +00:00

3 lines
150 B
Raku

class Something { has $.foo; has $.bar };
my $obj = Something.new: foo => 1, bar => 2;
my $newobj = $obj but role { has $.baz = 3 } # anonymous mixin