diff options
| author | Chuck Norris (mars.fritz.box) <paul@buetow.org> | 2014-08-28 09:33:11 +0200 |
|---|---|---|
| committer | Chuck Norris (mars.fritz.box) <paul@buetow.org> | 2014-08-28 09:33:11 +0200 |
| commit | b16cca8b3944c071a15ba57820804cfb6da9cbdb (patch) | |
| tree | 91d7939813d251e13a0b62f2cca6b3a8b5085d9a /Xerl/XML/Reader.pm | |
| parent | 98eea5583d0c3b52d0fe3dde9e9870ccba2fb983 (diff) | |
refactor
Diffstat (limited to 'Xerl/XML/Reader.pm')
| -rw-r--r-- | Xerl/XML/Reader.pm | 12 |
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; |
