I hate 'HASH' eq ref(...) since it doesn't consider blessed hashes to be hashes, and there are sometimes valid reasons for treating blessed hashes as hashes that don't even violate object encapsulation (for example, from inside the object's own methods).

I'd prefer:

    my $ref= $self->{x};
    return %{$ref}   if  UNIVERSAL::isa($ref,'HASH');
[download]

See also Want.pm.

Perhaps ref() should return an overloaded string that returns true when compared to both the underlying reference type and the class owning the object?

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker.
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;

Perhaps ref() should return an overloaded string that returns true when compared to both the underlying reference type and the class owning the object?

Why? That's what UNIVERSAL::isa() is for. Or should the return value from ref() be an overloaded string that returns true when compared to the underlying reference type, or the class owning the object, or any of the super classes of the class owning the object? That seems an unnecessarily complicated solution to a problem that has already been solved.

Scalar::Util to the rescue! It's reftype will give HASH for a hash, even a blessed one.

Now I'm getting into the fray.

UpdateFixed link, thanks, blakem.

TACCTGTTTGAGTGTAACAATCATTCGCTCGGTGTATCCATCTTTG ACACAATGAATCTTTGACTCGAACAATCGTTCGGTCGCTCCGACGC

No, ref() should completely ignore blessedness and there should be a blessed() function that returns false if the reference is not blessed, and the package it is blessed into if it is blessed.

I've seen too many cases of practical code that wants to ask "is this blessed" and is force to jump through some pretty stupid hoops. The overloading of ref() to combine both reference type and blessedness state was a mistake from the start.

        - tye (but my friends call me "Tye")