[scpubgit/Object-Remote.git] / lib / Object / Remote / Tied.pm

package Object::Remote::Tied;

use strictures 1; 

#a proxied tied object just ties to the
#proxy object that exists on the remote
#side of the actual tied variable - when
#creating the remote tied variable the proxy
#is passed to the constructor 

sub TIEHASH {
  return $_[1];
}

sub TIEARRAY {
  return $_[1];
}


1;
Commit	Line	Data
7790ca36	1	package Object::Remote::Tied;
	2
	3	use strictures 1;
	4
	5	#a proxied tied object just ties to the
	6	#proxy object that exists on the remote
	7	#side of the actual tied variable - when
	8	#creating the remote tied variable the proxy
	9	#is passed to the constructor
	10
	11	sub TIEHASH {
37efeb68	12	return $_[1];
7790ca36	13	}
	14
	15	sub TIEARRAY {
37efeb68	16	return $_[1];
7790ca36	17	}
	18
	19
	20	1;
	21