diff options
Diffstat (limited to 'Xerl/XML/Reader.pm')
| -rw-r--r-- | Xerl/XML/Reader.pm | 45 |
1 files changed, 0 insertions, 45 deletions
diff --git a/Xerl/XML/Reader.pm b/Xerl/XML/Reader.pm deleted file mode 100644 index ae5a07b..0000000 --- a/Xerl/XML/Reader.pm +++ /dev/null @@ -1,45 +0,0 @@ -# Xerl (c) 2005-2011, 2013 Dipl.-Inform. (FH) Paul C. Buetow -# -# E-Mail: xerl@dev.buetow.org WWW: http://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 Xerl::XML::Reader $self = shift; - - if ( -f $self->get_path() ) { - return 0; - } - else { - return 1; - } -} - -sub parse() { - my Xerl::XML::Reader $self = shift; - 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; |
