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