Select Code to Download

(time ? @a=() : $a) = Foo();

~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

~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