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/Element.pm | 17 ++++++++---------
 1 file changed, 8 insertions(+), 9 deletions(-)

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

diff --git a/Xerl/XML/Element.pm b/Xerl/XML/Element.pm
index 0867841..f1f79fd 100644
--- a/Xerl/XML/Element.pm
+++ b/Xerl/XML/Element.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
 #
@@ -12,8 +12,8 @@ use warnings;
 
 use Xerl::Base;
 
-sub starttag($$) {
-  my Xerl::XML::Element $self = $_[0];
+sub starttag {
+  my $self = $_[0];
   my ( $name, $temp ) = ( $_[1], undef );
 
   return $self if $self->get_name() eq $name;
@@ -27,22 +27,21 @@ sub starttag($$) {
   return undef;
 }
 
-sub starttag2($$$) {
-  my Xerl::XML::Element $self = $_[0];
+sub starttag2 {
+  my $self = $_[0];
   my ( $name, $after ) = @_[ 1 ... 2 ];
 
-  my Xerl::XML::Element $element = $self->starttag($name);
+  my $element = $self->starttag($name);
   return $element->starttag($after) if defined $element;
 
   return undef;
 }
 
-sub params_str($) {
-  my Xerl::XML::Element $self = $_[0];
+sub params_str {
+  my $self = $_[0];
   my $params = $self->get_params();
 
   return undef if $params eq '';
-
   return join '', map { " $_=\"" . $params->{$_} . '"' } keys %$params;
 }
 
-- 
cgit v1.2.3


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

---
 Xerl/XML/Element.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/Xerl/XML/Element.pm b/Xerl/XML/Element.pm
index f1f79fd..5e5106b 100644
--- a/Xerl/XML/Element.pm
+++ b/Xerl/XML/Element.pm
@@ -38,7 +38,7 @@ sub starttag2 {
 }
 
 sub params_str {
-  my $self = $_[0];
+  my $self   = $_[0];
   my $params = $self->get_params();
 
   return undef if $params eq '';
-- 
cgit v1.2.3


From 6dd2e1db76e167693f62027bab9a04857b693980 Mon Sep 17 00:00:00 2001
From: "Paul Buetow (europa)" <paul@buetow.org>
Date: Sun, 31 May 2015 16:57:05 +0100
Subject: use https

---
 Xerl/XML/Element.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/Xerl/XML/Element.pm b/Xerl/XML/Element.pm
index 5e5106b..633e462 100644
--- a/Xerl/XML/Element.pm
+++ b/Xerl/XML/Element.pm
@@ -1,6 +1,6 @@
 # Xerl (c) 2005-2011, 2013, 2014 by Paul Buetow
 #
-# 	E-Mail: xerl@dev.buetow.org 	WWW: http://xerl.buetow.org
+# 	E-Mail: xerl@dev.buetow.org 	WWW: https://xerl.buetow.org
 #
 # This is free software, you may use it and distribute it under the same
 # terms as Perl itself.
-- 
cgit v1.2.3


From 2103e642583ad50c06c66025ffa10b790e0cfea8 Mon Sep 17 00:00:00 2001
From: "Paul Buetow (europa)" <paul@buetow.org>
Date: Sun, 31 May 2015 16:58:10 +0100
Subject: Add 2015

---
 Xerl/XML/Element.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/Xerl/XML/Element.pm b/Xerl/XML/Element.pm
index 633e462..aadccec 100644
--- a/Xerl/XML/Element.pm
+++ b/Xerl/XML/Element.pm
@@ -1,4 +1,4 @@
-# Xerl (c) 2005-2011, 2013, 2014 by Paul Buetow
+# Xerl (c) 2005-2011, 2013-2015 by Paul Buetow
 #
 # 	E-Mail: xerl@dev.buetow.org 	WWW: https://xerl.buetow.org
 #
-- 
cgit v1.2.3