moar role/class attributes

gistfile1.txt

role foo {
  my @.bar;
  method addbar (*@new) { @.bar.push(@new) }
}

class bar does foo {
  method BUILD { self.addbar('bar') }
}

class baz does foo {
  method BUILD { self.addbar('baz') }
}

say bar.new.bar;
say '-';
say baz.new.bar;
say '-';



-----

[mking@eldrin ~/src]$ perl6-m rolewtf.pl 
bar
-
bar baz
-

[mking@eldrin ~/src]$ perl6-j rolewtf.pl                                                                                                                                                                                                                             
bar
-
baz
-

[mking@eldrin ~/src]$ perl6-p rolewtf.pl 
bar
-
baz
-