sub get_buffered_text {
  my $self = shift;
  my $text = $self->{buffered_text};
  $self->{buffered_text} = '';
  return $text;
}