Help for this page

Select Code to Download

Select or download this

use Scalar::Util qw(reftype);

...

print ref $o       # prints "MyClass"
print reftype($o)  # prints "HASH"