1 files changed, 0 insertions, 93 deletions
diff --git a/Xerl/XML/SAXHandler.pm b/Xerl/XML/SAXHandler.pm
deleted file mode 100644
index 69759ef..0000000
--- a/Xerl/XML/SAXHandler.pm
+++ /dev/null
@@ -1,93 +0,0 @@
-# Xerl (c) 2005-2011, 2013-2015 by Paul Buetow
-#
-# 	E-Mail: xerl@dev.buetow.org 	WWW: https://xerl.buetow.org
-#
-# This is free software, you may use it and distribute it under the same
-# terms as Perl itself.
-
-package Xerl::XML::SAXHandler;
-
-use base qw(XML::SAX::Base);
-
-use strict;
-use warnings;
-
-use 5.14.0;
-
-use Data::Dumper;
-
-use Xerl::Base;
-use Xerl::XML::Element;
-
-sub start_document {
-  my ( $self, $doc ) = @_;
-
-  $self->{xerl}{root}    = undef;
-  $self->{xerl}{current} = undef;
-  $self->{xerl}{stack}   = [];
-
-  return undef;
-}
-
-sub start_element {
-  my ( $self, $doc ) = @_;
-  my $x = $self->{xerl};
-
-  if ( defined $x->{current} ) {
-    push @{ $x->{stack} }, $x->{current};
-    $x->{root} = $x->{current} unless defined $x->{root};
-  }
-
-  my %params = map { $_->{Name} => $_->{Value} } values %{ $doc->{Attributes} };
-
- # Extract name and flags from a tag such as: <NAME.xerl.FLAG1.FLAG2.FLAGN...>..
-  my ( $name, @flags ) = _GET_NAME_N_FLAG( $doc->{Name} );
-
-  $x->{current} = Xerl::XML::Element->new();
-  $x->{current}->set_text('');
-  $x->{current}->set_name($name);
-  $x->{current}->set( "flag_$_", 1 ) for @flags;
-  $x->{current}->set_params( \%params ) if %params;
-
-  ${ $x->{stack} }[-1]->push_array( $x->{current} ) if @{ $x->{stack} };
-
-  return undef;
-}
-
-sub characters {
-  my ( $self, $doc ) = @_;
-  my $x = $self->{xerl};
-
-  my $data = $doc->{Data};
-  $data =~ s/!!LT!!/</g;
-  $data =~ s/!!GT!!/>/g;
-  $data =~ s/!!N!!/&/g;
-
-  $x->{current}{text} .= $data;
-
-  return undef;
-}
-
-sub end_element {
-  my ( $self, $doc ) = @_;
-  my $x = $self->{xerl};
-
-  $x->{current} = pop @{ $x->{stack} };
-
-  return undef;
-}
-
-sub _GET_NAME_N_FLAG ($) {
-  my $string = shift;
-
-  my ( $name, $flags ) = $string =~ /^(.+)\.xerl\.(.*)$/;
-
-  if ( defined $flags ) {
-    return ( $name, split( /\./, $flags ) );
-  }
-  else {
-    return ($string);
-  }
-}
-
-1;