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

Reply via email to