Hey all,
It has been a while since I have posted, because well I have had nothing to say. This post is a plea for an RTFM Direction, or a 'Yeah, that sucks, try this'.
I have written quite a bit of Code where I will use multiple instances of the same Object. The funny thing is that it seems the all of the instances have the same instance data as the last Object that was instatiated.
Here is an example.
use strict;
{
package Interesting;
my $_name = '';
sub new {
my $proto = shift();
my $class = ref($proto) || $proto;
my $this = bless({},$class);
return $this;
}
sub myNameIs{
my ($this,$name) = @_;
die("Don't tell me that I don't have a name.") unless(defined($nam
+e));
$_name = $name;
}
sub whoAmI{
return($_name);
}
}
my $one = new Interesting();
$one->myNameIs('What');
my $two = new Interesting();
$two->myNameIs('Who');
my $three = new Interesting();
$three->myNameIs('tukatukatuka SlimShady');
print "My name is : " . $one->whoAmI() . "\n";
print "My name is : " . $two->whoAmI() . "\n";
print "My name is : " . $three->whoAmI() . "\n";
Please tell me what I am doing wrong.
Thank you,
Kristofer