From b16cca8b3944c071a15ba57820804cfb6da9cbdb Mon Sep 17 00:00:00 2001
From: "Chuck Norris (mars.fritz.box)" <paul@buetow.org>
Date: Thu, 28 Aug 2014 09:33:11 +0200
Subject: refactor

---
 Xerl/XML/Reader.pm | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

(limited to 'Xerl/XML/Reader.pm')

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;
-- 
cgit v1.2.3