aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

June 2018 Update

Browse source
This commit is contained in:
Ingy döt Net 2018-06-22 20:57:24 +00:00
parent ba8067c3b7
commit 22f33d4004
5278 changed files with 84726 additions and 14379 deletions
Download patch file Download diff file Expand all files Collapse all files

18
Task/Copy-a-string/Perl-6/copy-a-string-3.pl6
View file

@ -1,12 +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"
};
};
# 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."