sub get_buffered_text {
  my $self = shift;
  (($_, $self->{buffered_text}) = ($self->{buffered_text}, ''))[0];
}