4 lines
98 B
Perl
4 lines
98 B
Perl
|
sub assign { $_[1] = $_[0] }
|
||
|
|
$a = $b; # Traditional syntax
|
||
|
|
assign $b, $a; # Inverted syntax
|