foreach my $key (@PARAMS) { $self->{$key} = $params{$key} || '' }