sub characters {
    my ($self, $chars) = @_;

    if ($self->{parsing_markup}) {
	$self->parse_markup($chars->{Data});
    } else {
	$self->SUPER::characters({Data => $chars->{Data}});
    }
}