"R. Joseph Newton" wrote: > > sub initialize { > my $self = shift; # references the oblect. > my ($title, $purpose, $text) = @_; > > $self->{'Title'} = $title; > $self->{'Purpose'} = $purpose; > push @{$self->{'Text'}}, $_ foreach @$text; > return $self; > }
Sorry, there was some wasted processing there. # push @{$self->{'Text'}}, $_ foreach @$text; $self->{'Text} = $text; Duuuuh. Joseph -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]