sub characters {
  my ($self, $chars) = @_;
  $self->{buffered_text} .= $chars->{Data};
  ...
}