Data commit

Task/Copy-a-string/Raku/copy-a-string-1.raku

@@ -0,0 +1,6 @@
+my $original = 'Hello.';
+my $copy = $original;
+say $copy;            # prints "Hello."
+$copy = 'Goodbye.';
+say $copy;            # prints "Goodbye."
+say $original;        # prints "Hello."

Task/Copy-a-string/Raku/copy-a-string-2.raku

@@ -0,0 +1,6 @@
+my $original = 'Hello.';
+my $bound := $original;
+say $bound;           # prints "Hello."
+$bound = 'Goodbye.';
+say $bound;           # prints "Goodbye."
+say $original;        # prints "Goodbye."

Task/Copy-a-string/Raku/copy-a-string-3.raku

@@ -0,0 +1,12 @@
+# y $original = 'Hello.';
+#my $bound-ro ::= $original;
+#say $bound-ro;        # prints "Hello."
+#try {
+#  $bound-ro = 'Runtime error!';
+#  CATCH {
+#    say "$!";         # prints "Cannot modify readonly value"
+#  };
+#};
+say $bound-ro;        # prints "Hello."
+$original = 'Goodbye.';
+say $bound-ro;        # prints "Goodbye."