in reply to Re: Re: Re: Re^6 (Third Time): mod_perl and cache?
in thread mod_perl and cache?

Hmm, I just did a little test... I'm running v5.8.0 and this yielded "Tie::IxHash" and "HASH" and "". 
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)

Replies are listed 'Best First'.
checking if a variable is tied or not
by perrin (Chancellor) on Mar 03, 2003 at 22:55 UTC
    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.
[reply]
[d/l]
[select]
      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)

[reply]
[d/l]
        You copied everything out of the tied hash %temp into the non-tied hash %hash and then tested that. Here is a version of your code that demonstrated that it is still tied: 
        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));
   print ref(tied(%{$temp}));
}

        [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom