[aklug] Re: SPUG: Question: scoping

Christopher Howard wrote:
> Ronald J Kimball wrote:
>
>> On Mon, Sep 15, 2008 at 01:11:02PM -0800, Christopher Howard wrote:
>>
>>
>>> When I run this, I get "Can't call method "value" without a package or
>>> object reference at ./main.pl line 13." from the interpreter. I was a
>>> bit confused, so I put constructor and de-constructor registration code
>>> into MyClass, to track was was happening to the objects.
>>>
>>> From what I can tell, the objects are getting destroyed before they
>>> leave the scope of the first for loop. This leaves me still confused,
>>> because I declared @obj outside of the scopes of the for loops.
>>>
>>>
>> Works for me. I suspect the problem is that MyClass's new method is not
>> actually returning the blessed reference.
>>
>>
>>
>>> Obviously I could solve the immediate problem by putting them both in
>>> the same for loop. But what I really want is to understand why the
>>> objects are going out of scope before I think they should be.
>>>
>>>
>> So, did you actually try that yet...? :)
>>
>> Ronald
>>
>> P.S. Here's the code and I ran, and the output:
>>
>> #!/usr/bin/env perl
>> use strict;
>> use warnings;
>>
>> my @obj;
>>
>> for(my $i = 0; $i<10; $i++) {
>> $obj[$i] = new MyClass;
>> }
>>
>> for(my $i = 0; $i<10; $i++) {
>> $obj[$i]->value("Test Value.");
>> }
>>
>> 1;
>>
>> package MyClass;
>>
>> sub new {
>> return bless {}, shift;
>> }
>>
>> sub value {
>> print "@_\n";
>> }
>>
>> __END__
>>
>> MyClass=HASH(0x811f27c) Test Value.
>> MyClass=HASH(0x811fa50) Test Value.
>> MyClass=HASH(0x814496c) Test Value.
>> MyClass=HASH(0x8144960) Test Value.
>> MyClass=HASH(0x8144024) Test Value.
>> MyClass=HASH(0x814400c) Test Value.
>> MyClass=HASH(0x814cfd8) Test Value.
>> MyClass=HASH(0x814cfc0) Test Value.
>> MyClass=HASH(0x814cfa8) Test Value.
>> MyClass=HASH(0x814cf90) Test Value.
>>
>>
> Um... yeah... I guess it does really help if you return the reference
> after you bless it.
>
> [Picture: Christopher Howard beating his head against a wall, trying to
> forget how stupid he must look...]
>
> Actually, that last e-mail was not sent by me. It was sent by my evil
> twin brother who hacked into my e-mail server so that he could make me
> look stupid. That's my story, and I'm sticking to it.
>
> ---------
> To unsubscribe, send email to <aklug-request@aklug.org>
> with 'unsubscribe' in the message body.
>
>
Oops, sorry -- wrong list. :D I thought I sent this one to my Perl list.

---------
To unsubscribe, send email to <aklug-request@aklug.org>
with 'unsubscribe' in the message body.
Received on Mon Sep 15 20:43:21 2008