"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]
