Help for this page

Select Code to Download


  1. or download this
    $ perl -MO=Deparse,-p junk
use subs ('non_commutative');
sub non_commutative {
...
($y = non_commutative(10));
print("$x\n$y\n");
junk syntax OK
  2. or download this
     $ perl -MO=Deparse,-p junk
sub non_commutative () {
    use warnings;
...
($y = (non_commutative + 10));
print("$x\n$y\n");
junk syntax OK
  3. or download this
    $ perl -MO=Deparse,-p junk
use constant ('non_commutative', 17);
use warnings;
...
($y = 27);
print("$x\n$y\n");
junk syntax OK