/gist:617097

## 21 changes: 21 additions & 0 deletions gistfile1.perl
@@ -0,0 +1,21 @@

    pmichaud@plum:~/rakudo$ cat xyz
pmichaud@plum:~/rakudo$ cat xyz

    class XYZ {
class XYZ {

        has $.v is rw;
    has $.v is rw;

    }
}


    sub arr($value) {
sub arr($value) {

        say $value.list;
    say $value.list;

        XYZ.new(v => $value);
    XYZ.new(v => $value);

    }
}


    my $x = arr((4,5,6));
my $x = arr((4,5,6));

    say $x.v.list;
say $x.v.list;


    $x.v = (7,8,9);
$x.v = (7,8,9);

    say $x.v.list;
say $x.v.list;

    pmichaud@plum:~/rakudo$ ./perl6 xyz
pmichaud@plum:~/rakudo$ ./perl6 xyz

    456
456

    4 5 6
4 5 6

    789
789

    pmichaud@plum:~/rakudo$
pmichaud@plum:~/rakudo$