sub characters {
    my $self = shift;
    print "\nXML::SAX::Base::characters Received DATA: |" . $_[0]->{Data} . "|\n";
    if (defined $self->{Methods}->{'characters'}) {
        $self->{Methods}->{'characters'}->(@_);
    }
    else {
        my $method;
        my $callbacks;
...

##</code><code>##

sub start_element {
    my ($self, $element) = @_;

    $self->{parsing_markup} = allow_markup($element->{Name});

    $self->SUPER::start_element($element);
}

##</code><code>##

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

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

##</code><code>##

  my $c = {Data => substr $chars, $from, $upto - $from};
  unless ($upto - $from <= 0) { print "\n=> calling SUPER::characters with " . Dumper($c) . "\n"; }
  $self->SUPER::characters($c) unless ($upto - $from <= 0);