(time ? @a=() : $a) = Foo();
####
~home>perl -MO=Concise, -ce '$z = (time ? @x=() : $x) = 365'
e <@> leave[1 ref] vKP/REFC ->(end)
1 <0> enter ->2
2 <;> nextstate(main 1 -e:1) v:{ ->3
d <2> sassign vKS/2 ->e
b <2> sassign sKS/2 ->c
3 <$> const(IV 365) s ->4
- <1> null sKPRM*/1 ->b
5 <|> cond_expr(other->6) sKRM*/1 ->f
4 <0> time[t1] s ->5
a <2> aassign[t3] sKRMS* ->b
- <1> ex-list lK ->7
6 <0> pushmark s ->7
- <0> stub lP ->-
- <1> ex-list lK ->a
7 <0> pushmark s ->8
9 <1> rv2av[t2] lKRM*/1 ->a
8 <$> gv(*x) s ->9
- <1> ex-rv2sv sKRM*/1 ->-
f <$> gvsv(*x) s ->b
- <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
-e had compilation errors.
e <@> leave[1 ref] KP/REFC ->(end)
1 <0> enter ->2
2 <;> nextstate(main 1 -e:1) :{ ->3
d <2> sassign KS/2 ->e
b <2> sassign KS/2 ->c
3 <$> const(IV 365) s ->4
- <1> null KP/1 ->b
5 <|> cond_expr(other->6) K/1 ->f
4 <0> time[t1] s ->5
a <2> aassign[t3] KPS ->b
- <1> ex-list lK ->7
6 <0> pushmark s ->7
- <0> stub lP ->-
- <1> ex-list lK ->a
7 <0> pushmark s ->8
9 <1> rv2av[t2] lKRM*/1 ->a
8 <$> gv(*x) s ->9
- <1> ex-rv2sv sK/1 ->-
f <$> gvsv(*x) s ->b
- <1> ex-rv2sv sK/1 ->d
c <$> gvsv(*z) s ->d