summaryrefslogtreecommitdiff
path: root/Xerl/XML/Reader.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Xerl/XML/Reader.pm')
-rw-r--r--Xerl/XML/Reader.pm45
1 files changed, 0 insertions, 45 deletions
diff --git a/Xerl/XML/Reader.pm b/Xerl/XML/Reader.pm
deleted file mode 100644
index a744025..0000000
--- a/Xerl/XML/Reader.pm
+++ /dev/null
@@ -1,45 +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::Reader;
-
-use strict;
-use warnings;
-
-use v5.14.0;
-
-use XML::SAX;
-
-use Xerl::Base;
-use Xerl::XML::Element;
-use Xerl::XML::SAXHandler;
-
-sub open {
- my $self = shift;
-
- if ( -f $self->get_path() ) {
- return 0;
- }
- else {
- return 1;
- }
-}
-
-sub parse {
- my $self = shift;
-
- XML::SAX->add_parser(q(XML::SAX::PurePerl));
- my $sax_handler = Xerl::XML::SAXHandler->new();
-
- my $parser = XML::SAX::ParserFactory->parser( Handler => $sax_handler );
- $parser->parse_uri( $self->get_path() );
- $self->set_root( $sax_handler->{xerl}{root} );
-
- return undef;
-}
-
-1;