- or download this
sub characters {
my ($self, $chars) = @_;
$self->{buffered_text} .= $chars->{Data};
...
}
- or download this
sub get_buffered_text {
my $self = shift;
...
$self->{buffered_text} = '';
return $text;
}
- or download this
sub get_buffered_text {
my $self = shift;
(($_, $self->{buffered_text}) = ($self->{buffered_text}, ''))[0];
}