masak (>):
> $ cat /tmp/test
> class M {
> has M @.ms is rw;
> method s($i=0) {
> $i ~ "[{ map { "{$_.s($i + 1)}" }, self.ms }]"
> }
> }
>
> my $m = M.new;
> my $m2 = M.new;
> $m2.ms = M.new;
> $m.ms = M.new, $m2, M.new;
> say $m.s;
>
> $ perl6 /tmp/test
> 0[1[] 2[3[]] 4[]]
>
# New Ticket Created by "Carl Mäsak"
# Please include the string: [perl #70469]
# in the subject line of all future correspondence about this issue.
# http://rt.perl.org/rt3/Ticket/Display.html?id=70469 >
$ cat /tmp/test
class M {
has M @.ms is rw;
method s($i=0) {
$i ~ "[{ ma