Re: Complex Objects in Perl

From: packat (chariya_at_verizon.not)
Date: 03/20/05 

Date: Sun, 20 Mar 2005 12:15:21 GMT

Theo van den Heuvel wrote:
> "packat" <chariya@verizon.not> schreef in bericht
> news:NPY_d.24692$hA3.5491@trnddc09...
>> Jim Gibson wrote:
>>> In article <8_ydnS49C86x9S3cRVn-tA@adelphia.com>, John
>>> Smith
>>> <someone@microsoft.com> wrote:
>> Here is my code
>> --------------------
>>
>> Cow->speak;
>
> Which Cow, which speak?
>
>>
>> { package Animal;
>> sub speak {
>> my $class = shift;
>> print "a $class goes ",$class->sound,"!\n";
>> }
>> }
>>
>> { package Cow;
>> use vars qw(@ISA);
>> @ISA = qw(Animal);
>> print "Hi >$ISA[0]>\n";
>> sub sound {"Mooo"}
>> }
>> ---------------------
>> After execution, I got
>>
>> C:\Perl\MDGS>
>> C:\Perl\MDGS>
>> C:\Perl\MDGS>Sample.pl
>> Can't locate object method "speak" via package "Cow" at
>> C:\Perl\MDGS\Sample.pl line 2.
>>
>> --------------------
>>
>> Does this mean perl can't recgnize @ISA?
>>
>> Thanks,
>> pac
>>
>
> Move your speaking cow to the point beyond the package
> declarations
> and she will no longer be silent.
>

{package packat;
sub sound {"Duh!"}
}

I just follow the sample code in perldoc without reordering
the sequesce....
It works fine now. Hmmm.. I have a great projct for it.

Thnaks for you help,
pac
packar->
Duh!

> Theo van den Heuvel