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 messageText/};