return unless B::svref_2object($r)->MAGIC->TYPE =~/r/;