use Tie::IxHash;
use strict;
use warnings;

{
   my %hash;
   print ref(tie(%hash, "Tie::IxHash"))."\n";
   $hash{'hi'} = 1;
   $hash{'there'} = 2;
   some(\%hash);
}

sub some{
   my $temp = shift;
   print ref($temp)."\n";
   my %hash = %{$temp};
   print ref(tied(%hash));
}
[download]

My code doesn't have bugs, it just develops random features.

Flame ~ Lead Programmer: GMS (DOWN) | GMS (DOWN)

The tie command does not return a reference to the hash that you tied; it returns a reference to an object of the class that you tied it to which you can throw away unless you need it to call extended methods or something. The tie mechanism is meant to be completely transparent to other code that wants to treat the tied variable like a normal variable, and is tracked internally, not through blessing/isa. To determine if a variable is tied, use the tied command.

I have written a module (for my own use) that uses tie before, so I understand it, and OOP. I was using ref(tied %hash) to demonstrate that it is not returning an object, meaning it is no longer tied.



---




My code doesn't have bugs, it just develops random features.

Flame ~ Lead Programmer: GMS (DOWN) | GMS (DOWN)