From 6aa12ae5f556ab884b7705379c41a566df86d028 Mon Sep 17 00:00:00 2001
From: "Paul Buetow (pluto.buetow.org)" <paul@buetow.org>
Date: Sun, 15 Sep 2013 11:51:10 +0200
Subject: temp remove includedirs tag, perltidy indention set to 2, initial
 XML::LibXML

---
 Xerl/Page/Rules.pm | 86 +++++++++++++++++++++++++++---------------------------
 1 file changed, 43 insertions(+), 43 deletions(-)

(limited to 'Xerl/Page/Rules.pm')

diff --git a/Xerl/Page/Rules.pm b/Xerl/Page/Rules.pm
index 4a08d19..3895f4e 100644
--- a/Xerl/Page/Rules.pm
+++ b/Xerl/Page/Rules.pm
@@ -37,59 +37,59 @@ use Xerl::XML::Element;
 use Xerl::Page::Configure;
 
 sub parse($) {
-    my Xerl::Page::Rules $self       = $_[0];
-    my Xerl::XML::Element $element   = $_[1];
-    my Xerl::Page::Configure $config = $self->get_config();
+  my Xerl::Page::Rules $self       = $_[0];
+  my Xerl::XML::Element $element   = $_[1];
+  my Xerl::Page::Configure $config = $self->get_config();
 
-    $element = $element->starttag2( 'rules', $config->get_outputformat() );
-    return unless defined $element;
+  $element = $element->starttag2( 'rules', $config->get_outputformat() );
+  return unless defined $element;
 
-    # Open and close rules:
-    my ( $orule, $crule );
+  # Open and close rules:
+  my ( $orule, $crule );
 
-    # For all available rules in config.xml
-    for my $rule ( @{ $element->get_array() } ) {
-        my $params = $rule->get_params();
+  # For all available rules in config.xml
+  for my $rule ( @{ $element->get_array() } ) {
+    my $params = $rule->get_params();
 
-        $orule = $rule->get_text();
-        chomp $orule;
+    $orule = $rule->get_text();
+    chomp $orule;
 
-        $orule =~ s/\[/</go;
-        $orule =~ s/\]/>/go;
+    $orule =~ s/\[/</go;
+    $orule =~ s/\]/>/go;
 
-        unless (
-            ref $params eq 'HASH'
-            && (   lc $params->{end} eq 'yes'
-                || lc $params->{start} eq 'yes' )
-          )
-        {
-            $crule = join '><', reverse split /> *</, $orule;
-            $crule = "<$crule>";
-            $crule =~ s/<</</go;
-            $crule =~ s/>>/>/go;
-            $crule =~ s/</<\//go;
-            $crule =~ s/\n//go;
-            $crule =~ s/ .+?>/>/go;
-            $crule .= "\n";
+    unless (
+      ref $params eq 'HASH'
+      && ( lc $params->{end} eq 'yes'
+        || lc $params->{start} eq 'yes' )
+      )
+    {
+      $crule = join '><', reverse split /> *</, $orule;
+      $crule = "<$crule>";
+      $crule =~ s/<</</go;
+      $crule =~ s/>>/>/go;
+      $crule =~ s/</<\//go;
+      $crule =~ s/\n//go;
+      $crule =~ s/ .+?>/>/go;
+      $crule .= "\n";
 
-        }
-        else {
-            if ( lc $$params{start} eq 'yes' ) {
-                $crule = '';
-
-            }
-            else {
-                $crule = $orule;
-                $orule = '';
-            }
-            $crule .= "\n";
-        }
+    }
+    else {
+      if ( lc $$params{start} eq 'yes' ) {
+        $crule = '';
 
-        $params = {} unless ref $params eq 'HASH';
-        $self->setval( $rule->get_name(), [ "$orule\n", $crule, $params ] );
+      }
+      else {
+        $crule = $orule;
+        $orule = '';
+      }
+      $crule .= "\n";
     }
 
-    return undef;
+    $params = {} unless ref $params eq 'HASH';
+    $self->setval( $rule->get_name(), [ "$orule\n", $crule, $params ] );
+  }
+
+  return undef;
 }
 
 1;
-- 
cgit v1.2.3