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

The object returned by svref_2object may not have a MAGIC method, so either wrap an eval {} around part of that or check that B::class(B::svref_2object($r)) eq "PVMG".