Select Code to Download

my ($self, %values) = @_;  # we're being passed a hash so let's treat 
+it like a hash
my ($tree, $messageNum, $messageText) = @values{qw/tree messageNum mes
+sageText/};

sub validateParams {
     my ($data, @paramNames) = @_;
...
         die "parameter $name missing or undefined" unless defined $da
+ta->{$name};    
     }
}

{
   my @paramNames = qw/tree messageNum messageText/;
...
        my ($tree, $messageNum, $messageText) = @values{@paramNames};
   }
}