[Perl 6] Parameters with side effects.

Perl 6 |

0 B

None

0 👍

0 👎

Raw Download Clone Embed Print View

sub add-one($n is rw) {
    $n += 1;
    $n;
}
 
my $n = 3;
add-one($n) == 4 or die "Wrong value";
$n == 4 or die "Wrong value";

Comments