Help for this page

Select Code to Download


  1. or download this
    (time ? @a=() : $a) = Foo();
  2. or download this
    ~home>perl -MO=Concise, -ce '$z = (time ? @x=() : $x) = 365'
e  <@> leave[1 ref] vKP/REFC ->(end)
...
-        <1> ex-rv2sv sKRM*/1 ->d
c           <$> gvsv(*z) s ->d
-e syntax OK
  3. or download this
    ~home>perl -MO=Concise, -ce '$z = (time ? (@x=()) : $x) = 365'
Assignment to both a list and a scalar at -e line 1, at EOF
...
f                    <$> gvsv(*x) s ->b
-        <1> ex-rv2sv sK/1 ->d
c           <$> gvsv(*z) s ->d