I'm fairly new to this perl-OO stuff, but I am making headway except for a recent problem. I've got a package with the follow constructor and accessor methods, but I'm running into problems with creating a copy constructor.
sub new
{
my $self;
$self->{ A } = undef;
$self->{ B } = undef;
bless $self, 'Stuff';
}
sub A
{
my ( $self, $a ) = @_;
$self->{ A } = $a;
}
----
I've gotten the copy() method below to work:
sub copy
{
my ( $self ) = @_;
my ( $new );
%{ $new } = %{ $self };
bless $new, 'Stuff';
return $new;
}
The problem that I'm running into is that in the Stuff object I'd like $self->{ B } to be an array of another type of object (same type of structure, much different data). Whenever I call the copy constructor I just get a reference to the same array as the initial object, not a true copy. Any ideas as to what I'm doing wrong, or am I approaching this the wrong way?
Originally posted as a Categorized Question.