un perltig

7 files changed, 16 insertions, 16 deletions

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;
   }
 
diff --git a/Xerl/Setup/Configure.pm b/Xerl/Setup/Configure.pm
index 2d248f2..537ac4f 100644
--- a/Xerl/Setup/Configure.pm
+++ b/Xerl/Setup/Configure.pm
@@ -126,7 +126,7 @@ sub defaults {
 
 sub eval {
   my $self = $_[0];
-  my $val = $_[1];
+  my $val  = $_[1];
 
   $val =~ s/^!(.+)/`$1`/eo;
 
@@ -134,7 +134,7 @@ sub eval {
 }
 
 sub insertxmlvars {
-  my $self = $_[0];
+  my $self    = $_[0];
   my $element = $_[1];
 
   $element = $element->starttag('variables');
diff --git a/Xerl/Setup/Request.pm b/Xerl/Setup/Request.pm
index c6f2e53..bfbd2b4 100644
--- a/Xerl/Setup/Request.pm
+++ b/Xerl/Setup/Request.pm
@@ -15,7 +15,7 @@ use v5.14.0;
 use Xerl::Base;
 
 sub parse {
-  my $self = $_[0];
+  my $self    = $_[0];
   my $request = $self->get_request();
 
   # Secure it!
diff --git a/Xerl/Tools/FileIO.pm b/Xerl/Tools/FileIO.pm
index 31d5c66..63e2b86 100644
--- a/Xerl/Tools/FileIO.pm
+++ b/Xerl/Tools/FileIO.pm
@@ -95,7 +95,7 @@ sub reverse_array {
 }
 
 sub merge {
-  my ($self, $other) = @_;
+  my ( $self, $other ) = @_;
 
   my @merged = ( @{ $self->get_array() }, @{ $other->get_array() } );
   my $fio = Xerl::Tools::FileIO->new();
@@ -124,7 +124,7 @@ sub str {
 }
 
 sub _fwrite {
-  my $self = $_[0];
+  my $self   = $_[0];
   my $append = $_[1];
 
   my ( $path, $filename ) =
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 '';
diff --git a/Xerl/XML/Reader.pm b/Xerl/XML/Reader.pm
index 88c727a..ce7b31a 100644
--- a/Xerl/XML/Reader.pm
+++ b/Xerl/XML/Reader.pm
@@ -30,7 +30,7 @@ sub open {
 }
 
 sub parse {
-  my $self = shift;
+  my $self        = shift;
   my $sax_handler = Xerl::XML::SAXHandler->new();
 
   my $parser = XML::SAX::ParserFactory->parser( Handler => $sax_handler );