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