tasks a-s

Task/Copy-a-string/Perl-6/copy-a-string-1.pl6

@@ -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/Perl-6/copy-a-string-2.pl6

@@ -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/Perl-6/copy-a-string-3.pl6

@@ -0,0 +1,12 @@
+my $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."