Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

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.