in reply to checking if a variable is tied or not
in thread mod_perl and cache?

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)

Replies are listed 'Best First'.
Re: Re: checking if a variable is tied or not
by perrin (Chancellor) on Mar 03, 2003 at 23:33 UTC
    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]
      Yay! It works! Thank you for your patience. I'm still kinda clueless when it comes to mod_perl, but I'm trying.

      Thanks!


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

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

[reply]

In Section Seekers of Perl Wisdom