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/Page/Content.pm   | 9 +++++----
 Xerl/Page/Templates.pm | 9 ++++-----
 2 files changed, 9 insertions(+), 9 deletions(-)

(limited to 'Xerl/Page')

diff --git a/Xerl/Page/Content.pm b/Xerl/Page/Content.pm
index 05a206d..c091c70 100644
--- a/Xerl/Page/Content.pm
+++ b/Xerl/Page/Content.pm
@@ -72,10 +72,10 @@ sub insertrules {
 }
 
 sub _insertrules {
-  my $self    = $_[0];
-  my $rules   = $_[1];
-  my $element = $_[2];
-  my $config  = $self->get_config();
+  my $self       = $_[0];
+  my $rules      = $_[1];
+  my $element    = $_[2];
+  my $config     = $self->get_config();
   my $nonewlines = 0;
 
   # Don't interate through the XML childs if we have a leaf node.
@@ -109,6 +109,7 @@ sub _insertrules {
 
       }
       elsif ( lc $name eq 'inject' ) {
+
         # Fetch via LWP::Simple
         my $got = get($text);
         $got =~ s/</&lt;/g;
diff --git a/Xerl/Page/Templates.pm b/Xerl/Page/Templates.pm
index a2b2880..341e0dc 100644
--- a/Xerl/Page/Templates.pm
+++ b/Xerl/Page/Templates.pm
@@ -24,8 +24,8 @@ use Xerl::Tools::FileIO;
 use constant RECURSIVE => 1;
 
 sub parse {
-  my $self    = $_[0];
-  my  $config = $self->get_config();
+  my $self   = $_[0];
+  my $config = $self->get_config();
 
   my $site = $config->get_site();
 
@@ -138,8 +138,8 @@ sub parse {
 }
 
 sub parsetemplate {
-  my $self   = $_[0];
-  my $config = $self->get_config();
+  my $self          = $_[0];
+  my $config        = $self->get_config();
   my $deepnesslevel = $_[2] || 0;
 
   return $self if $deepnesslevel == 100;
@@ -195,7 +195,6 @@ sub print {
     $line =~ s/!!GT!!/>/g;
     $line =~ s#!!URL\((.+?)\)!!#<a href="$1">$1</a>#g;
 
-
     print $line;
   }
 
-- 
cgit v1.2.3