note
asarih
Note that [perldoc://Scalar::Util::reftype] behaves almost like the built-in [perldoc://ref], except when an object is passed.
<code>
use Scalar::Util 'reftype';
$a=\$b;
print reftype($a),"\n"; #SCALAR
print ref($a),"\n"; #SCALAR
bless $a, "BOGUS";
print reftype($a),"\n"; #SCALAR
print ref($a),"\n"; #BOGUS
</code>
175651
292445