Select Code to Download

sub characters {
    my $self = shift;
...
        my $method;
        my $callbacks;
...

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

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

sub characters {
    my ($self, $chars) = @_;
...
    $self->SUPER::characters({Data => $chars->{Data}});
    }
}

  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);