(tye)Re: passing hashes and hash reference

[tye]

"HASH" eq ref($ref) is a fragile test and should be replaced with UNIVERSAL::isa($ref,"HASH").

Update: The reason the original test is fragile is that it will make your code refuse to work on a hash if it happens to be blessed.

Update2: Changed "HASH" eq ref to "HASH" eq ref($ref) to avoid confusion. Thanks, BMaximus.

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

[BMaximus]

Shouldn't that be: ref($hash) eq "HASH" ?
Where $hash is a hashref?

How about a bit more on why the UNIVERSAL::isa() method is better? I'm curious.

BMaximus

[tadman]

How about:

    sub rref
    {
         return UNIVERSAL::isa(@_);
    }

    if (rref($hash_ref,'HASH'))
    {
         # Wow! It's a hash!
    }

UNIVERSAL is such a wacky thing. It's exactly the kind of direction that I would expect Parrot to take, but only if somehow Java were involved.

[tye]

*isa= \&UNIVERSAL::isa;
if(  isa($ref,"HASH")  ) {

works for me. (:

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