summaryrefslogtreecommitdiff
path: root/Xerl/XML/Reader.pm
diff options
context:
space:
mode:
authorChuck Norris (mars.fritz.box) <paul@buetow.org>2014-08-28 09:33:11 +0200
committerChuck Norris (mars.fritz.box) <paul@buetow.org>2014-08-28 09:33:11 +0200
commitb16cca8b3944c071a15ba57820804cfb6da9cbdb (patch)
tree91d7939813d251e13a0b62f2cca6b3a8b5085d9a /Xerl/XML/Reader.pm
parent98eea5583d0c3b52d0fe3dde9e9870ccba2fb983 (diff)
refactor
Diffstat (limited to 'Xerl/XML/Reader.pm')
-rw-r--r--Xerl/XML/Reader.pm12
1 files changed, 5 insertions, 7 deletions
diff --git a/Xerl/XML/Reader.pm b/Xerl/XML/Reader.pm
index ae5a07b..88c727a 100644
--- a/Xerl/XML/Reader.pm
+++ b/Xerl/XML/Reader.pm
@@ -1,4 +1,4 @@
-# Xerl (c) 2005-2011, 2013 Dipl.-Inform. (FH) Paul C. Buetow
+# Xerl (c) 2005-2011, 2013, 2014 by Paul Buetow
#
# E-Mail: xerl@dev.buetow.org WWW: http://xerl.buetow.org
#
@@ -18,8 +18,8 @@ use Xerl::Base;
use Xerl::XML::Element;
use Xerl::XML::SAXHandler;
-sub open($) {
- my Xerl::XML::Reader $self = shift;
+sub open {
+ my $self = shift;
if ( -f $self->get_path() ) {
return 0;
@@ -29,14 +29,12 @@ sub open($) {
}
}
-sub parse() {
- my Xerl::XML::Reader $self = shift;
+sub parse {
+ my $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;