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;
}
[download]

---- I've gotten the copy() method below to work:

sub copy
{
   my ( $self ) = @_;
   my ( $new );

   %{ $new } = %{ $self };

   bless $new, 'Stuff';
   return $new;
}
[download]

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.