Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

29 lines (21 sloc) 0.539 kB
use v6;
use Test;
plan 4;
# old: L<S03/Changes to Perl 5 operators/The scalar assignment operator still parses as it did before>
# L<S03/Changes to Perl 5 operators>
{
my $x = 15;
my $y = 1;
($x = $y) = 5;
is $x, 5, 'order of assignment respected (1)';
is $y, 1, 'order of assignment respected (2)';
$x = $y = 7;
is $y, 7, 'assignment is right-associative';
}
# From p5 "perldoc perlop"
{
my $x = 1;
($x += 2) *= 3;
is $x, 9, 'lvalue expressions are only evaluated once';
}
# vim: ft=perl6
Jump to Line
Something went wrong with that request. Please try again.