{
   my @paramNames = qw/tree messageNum messageText/;
   sub new {
        my ($self, %values) = @_;
        validateParams(\%values, @paramNames);
        my ($tree, $messageNum, $messageText) = @values{@paramNames};
   }
}