Help for this page

Select Code to Download


  1. or download this
    perl -MO=Deparse  -e 'sub Foo() {}; (time ? @a=() : $a) = Foo();'
  2. or download this
    sub Foo () {
    
}
time ? @a = () : $a = Foo;
  3. or download this
    perl -MO=Deparse  -e 'sub Foo() {}; (time ? @a : $a) = Foo();'
  4. or download this
    Assignment to both a list and a scalar at -e line 1, near ");"