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

7 lines
189 B
Raku
Raw Permalink Normal View History

2013-04-10 23:57:08 -07:00
my $original = 'Hello.';
my $copy = $original;
say $copy; # prints "Hello."
$copy = 'Goodbye.';
say $copy; # prints "Goodbye."
say $original; # prints "Hello."