An overloaded object and tie

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Hi, I've been struggling for hours - but I can't seem to get anywhere! Either I'm missing something simple, or it can't be done. Lets hope it's something simple:)

I have an overloaded object that can perform basic arithmetic:

$one=new Array_Like_Object(1); #set all elements to one<br>
$two=new Array_Like_Object(2); #set all elements to two

$three = $one + $two;
[download]

To set and read elements from this object I have a few simple methods:

$three->Read(14); #return element 14
$three->Write(14,3); #set element 14 to 3
[download]

I had assumed that in conjunction with tie, I could do something like:

$three(14); #return element 14
$three(14)=3; #set element 14 to 3
[download]

but I can't seem to get it to work. Would this kind of syntax be possible using a tied array?

Thanks.

Comment on An overloaded object and tie Select or Download Code

Replies are listed 'Best First'.
Re: An overloaded object and tie by eclark (Scribe) on Jun 09, 2004 at 18:02 UTC
Try looking at Tie::Array.	[reply]
Re^2: An overloaded object and tie by Anonymous Monk on Jun 09, 2004 at 19:17 UTC
Hi, I've already tried this - it doesn't work in the way I thought/wanted it to: `package Tie::NewStdArray; use Tie::Array; @ISA = ('Tie::StdArray'); sub STORE { print 'in store'; } sub FETCH { print 'in fetch'; } # all methods provided by default package main; my @somearray; my $object = tie @somearray,Tie::NewStdArray; $somearray[0]=12; #intercepted by tie $object[0]=12; #uses the blessed array` [download] Using the object returned from tie uses the blessed reference not the tie, which means you can't use the [] syntax when object are created on the fly by overloading. For example: `$three=$two+$one; print $three[12];` [download]	[reply] [d/l] [select]
Re: An overloaded object and tie by adrianh (Chancellor) on Jun 09, 2004 at 20:01 UTC
Would this kind of syntax be possible using a tied array? Not really. What you're probably after is overloading array references, rather than tieing. This would allow you to do: `$three->[14]; $three->[14] = 3;` [download]	[reply] [d/l]


Perl-Sensitive Sunglasses
	PerlMonks