Expand Assignment to include ConditionalExpression on LHS/RHS

Author: zmughal

lib/Babble/Plugin/DefinedOr.pm

@@ -39,9 +39,9 @@ sub transform_to_plain {
     [ after => '(?>(?&PerlPrefixPostfixTerm))' ],
   ] => $tf);
   $top->each_match_within(Assignment => [
-    [ before => '(?>(?&PerlPrefixPostfixTerm))' ],
+    [ before => '(?>(?&PerlConditionalExpression))' ],
     [ op => '(?>(?&PerlOWS) //=)' ], '(?>(?&PerlOWS))',
-    [ after => '(?>(?&PerlPrefixPostfixTerm))' ],
+    [ after => '(?>(?&PerlConditionalExpression))' ],
   ] => $tf);
 }
 

t/plugin-definedor.t

@@ -16,6 +16,8 @@ my @cand = (
     'my $x; my $y = 3; do { defined($_) or $_ = $y for $x } if $z; say $x;', ],
   [ 'sub foo { return $x // 3 }',
     'sub foo { return (map +(defined($_) ? $_ : 3), $x)[0] }', ],
+  [ '$lhs ? $i : $j //= $rhs ? $x : $y',
+    '(map +(defined($_) ? $_ : ($_ = $rhs ? $x : $y)), $lhs ? $i : $j)[0]', ],
 );
 
 foreach my $cand (@cand) {