Help for this page

Select Code to Download


  1. or download this
      DB<28> sub ret { return $_[0] }

  DB<29> $a = []; print \$_,"\n",\$a and \$_==\$a and print "ALIAS" fo
+r ret($a);
SCALAR(0x8201604)
SCALAR(0x8201b08)
  2. or download this
    &wrap_arg_one; for my $list ($_[0]) { ...}