La función reftype de Scalar::Util
funciona de manera parecida a ref EXPR, con la diferencia
de que sobre los objetos no retorna la clase del objeto:
$type = reftype "string"; # undef
$type = reftype \$var; # SCALAR
$type = reftype []; # ARRAY
$obj = bless {}, "Foo";
$type = reftype $obj; # HASH
Casiano Rodríguez León
