Select Code to Download

 sub noop { 
   X::is_x( $_[0] );     # ok
   return $_[0];
 }
 X::is_x( noop($x) );    # not_ok

 sub noop_lval :lvalue { $_[0] }

...

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