This is the package 'Spy':
===

package Spy;
use strict;

sub TIESCALAR
{
 my ($Pkg,$Name,$Val)=@_;
 my $Obj=[$Name,$Val];
 return bless $Obj,$Pkg;
}

sub FETCH
{
 my ($Obj)=@_; 
 print STDERR "Fetched ",$Obj->[1]||'undef'," from ",$Obj->[0],"\n";
 return $Obj->[1];
}

sub STORE
{
 my ($Obj,$Val)=@_; 
 print STDERR "Stored ",$Val||'undef'," in ",$Obj->[0],"\n";
 return $Obj->[1]=$Val;
}
1;
[download]

===
And this is the test code:
===

#!/usr/bin/perl -w

use strict;
use Spy;

my ($Var1,$Var2);

tie $Var1,'Spy','Var1';
tie $Var2,'Spy','Var2';

($Var1,$Var2)=(37332,666);
print "Assigning \$Var2 to \$Var1, result: ", $Var1=$Var2,"\n";

# Humming 'Twilight Zone'

for $Var2 (1..5)
{
 $Var1=$Var2;
 print STDERR "$Var1\n";
 $Var2="Test";
};

print "$Var2\n";
[download]

===
And here is the output:

martijnb@xxx$ ./test
Stored 37332 in Var1
Stored 666 in Var2
Fetched 666 from Var2
Stored 666 in Var1
Fetched 666 from Var1
Assigning $Var2 to $Var1, result: 666
Stored 1 in Var1
Fetched 1 from Var1
1
Stored 2 in Var1
Fetched 2 from Var1
2
Stored 3 in Var1
Fetched 3 from Var1
3
Stored 4 in Var1
Fetched 4 from Var1
4
Stored 5 in Var1
Fetched 5 from Var1
5
Fetched 666 from Var2
666
[download]

Now... I CAN imagine that before the `for` loop
`something` is done that localizes $Var2 to the loop (as seen in the
output)...

Two questions though:

Why don`t I see this localization ? (Too deep for tie ?)

Is there any other way to keep monitoring $Var2, without
assigning it to another monitored variable (like here $Var1) ?

I really hope all this made sense to you guys....


GreetZ!,

ChOas

print "profeth still\n" if /bird|devil/;