Re: Real Basic Perl OOP Question

[Codon]

This is a very basic error. bless() returns a blessed reference; it does not operate on the referent. In otherwords, when you do this:

bless $objref, $class

you are not getting the benefits of the bless(). Try this instead:

my $self = bless $objref, $class;
return $self;

[fishbot_v2]

That is not correct - bless alters its first argument in-place:

use Data::Dumper;

my ( $ref1, $ref2 ) = ( {}, {} );

my $ref3 = bless $ref1, 'Foo';  # capturing results
bless $ref2, 'Foo';             # in void context

print Dumper $ref3;
print Dumper $ref2;
__END__

# results identical:
$VAR1 = bless( {}, 'Foo' );
$VAR1 = bless( {}, 'Foo' );

bless returns the reference as a convenience, however it certainly operates on the reference. (It doesn't alter that which is referenced {the "referent"?}... but he's not doing that, and that isn't what you are demonstrating either.)

[o2bwise]

This is awesome. I love this site.

Thanks, man.

[o2bwise]

My "this is awesome" comment was meant to be a reply to you...

[o2bwise]

Hi Codon,

Thank you. Though I am confused.

Based on a recommendation by Zaxo (where I posted this before and didn't realize it was available), I changed:

my $name2 = Message->name( $message_obj );

to

my $name2 = $message_obj->name( );

and it worked! :-)

Tony