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;