sub noop_lval :lvalue { $_[0] }

 X:is_x( noop_lval($x) );                # ok !

 $m=20; print noop_lval(++$m) + $m++;    # 42 (still)

 $m=20; (++$m) + $m++;                   # 43