Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- pmichaud@plum:~/rakudo$ cat xyz
- sub arr($key, $value) {
- Pair.new( key => $key, value => $value.item );
- }
- my $x = arr('a', (4,5,6));
- say $x.value.list;
- my $y = arr('a', (4,5,6).item);
- say $y.value.list;
- my $z = arr('a', Seq.new(4,5,6).item);
- say $z.value.list;
- pmichaud@plum:~/rakudo$ ./perl6 xyz
- 4 5 6
- 456
- 456
- pmichaud@plum:~/rakudo$
Add Comment
Please, Sign In to add comment