From fd7590d71aeee380e7c87ed77de592df1f30f5ef Mon Sep 17 00:00:00 2001
From: "Paul Buetow (pluto.buetow.org)" <paul@buetow.org>
Date: Sat, 28 Sep 2013 22:18:24 +0200
Subject: Some small refactoring

---
 Xerl/XML/Element.pm | 2 +-
 Xerl/XML/Reader.pm  | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'Xerl/XML')

diff --git a/Xerl/XML/Element.pm b/Xerl/XML/Element.pm
index d18e0b5..0867841 100644
--- a/Xerl/XML/Element.pm
+++ b/Xerl/XML/Element.pm
@@ -41,7 +41,7 @@ sub params_str($) {
   my Xerl::XML::Element $self = $_[0];
   my $params = $self->get_params();
 
-  return if $params eq '';
+  return undef if $params eq '';
 
   return join '', map { " $_=\"" . $params->{$_} . '"' } keys %$params;
 }
diff --git a/Xerl/XML/Reader.pm b/Xerl/XML/Reader.pm
index aeb8c74..c5ab2d3 100644
--- a/Xerl/XML/Reader.pm
+++ b/Xerl/XML/Reader.pm
@@ -17,7 +17,7 @@ use Xerl::XML::Element;
 use Xerl::XML::SAXHandler;
 
 sub open($) {
-  my Xerl::XML::Reader $self = $_[0];
+  my Xerl::XML::Reader $self = shift;
 
   if ( -f $self->get_path() ) {
     return 0;
@@ -28,7 +28,7 @@ sub open($) {
 }
 
 sub parse() {
-  my Xerl::XML::Reader $self = $_[0];
+  my Xerl::XML::Reader $self = shift;
   my $sax_handler = Xerl::XML::SAXHandler->new();
 
   my $parser = XML::SAX::ParserFactory->parser( Handler => $sax_handler );
-- 
cgit v1.2.3