code cleanup using perltidy

5 files changed, 29 insertions, 29 deletions

diff --git a/Xerl/Page/Configure.pm b/Xerl/Page/Configure.pm
index 9429f25..9fa3002 100644
--- a/Xerl/Page/Configure.pm
+++ b/Xerl/Page/Configure.pm
@@ -42,9 +42,9 @@ sub parse($) {
     my Xerl::Tools::FileIO $file =
       Xerl::Tools::FileIO->new( 'path' => $self->get_config() );
 
-    if (-1 == $file->fslurp()) {
-    	$self->set_shutdown(1);
-	return undef;
+    if ( -1 == $file->fslurp() ) {
+        $self->set_shutdown(1);
+        return undef;
     }
 
     my $re = qr/^(.+?) *=(.+?) *\n?$/;
@@ -87,8 +87,8 @@ sub defaults($) {
               Xerl::Tools::FileIO->new( 'path' => $redirect );
             $file->fslurp();
             my $location = $file->shift();
-	    Xerl::Main::Global::REDIRECT( $location );
-	    $self->set_shutdown(1);
+            Xerl::Main::Global::REDIRECT($location);
+            $self->set_shutdown(1);
         }
         my $alias = $self->get_hostroot() . 'alias:' . $self->get_host();
         if ( -f $alias ) {
@@ -153,7 +153,7 @@ sub insertxmlvars($$) {
 
     return $self
       unless defined $element
-      or $element->get_array() eq 'ARRAY';
+          or $element->get_array() eq 'ARRAY';
 
     my $text;
     for ( @{ $element->get_array() } ) {
diff --git a/Xerl/Page/Content.pm b/Xerl/Page/Content.pm
index 9100215..9bdca50 100644
--- a/Xerl/Page/Content.pm
+++ b/Xerl/Page/Content.pm
@@ -48,9 +48,9 @@ sub parse($) {
         config => $config
     );
 
-    if (-1 == $xmlcontent->open()) {
-	$config->set_shutdown(1);
-	return undef;
+    if ( -1 == $xmlcontent->open() ) {
+        $config->set_shutdown(1);
+        return undef;
     }
 
     $xmlcontent->parse();
@@ -144,8 +144,7 @@ sub _insertrules($$$) {
                 $name =~ s/^=//o;    # Remove the leading =
                 if ( $succ->get_single() ) {
                     push @content,
-                      "<$name"
-                      . ( $succ->params_str() || '' ) . " />\n"
+                      "<$name" . ( $succ->params_str() || '' ) . " />\n"
 
                 }
                 else {
diff --git a/Xerl/Page/Document.pm b/Xerl/Page/Document.pm
index 13a8254..2ca9f10 100644
--- a/Xerl/Page/Document.pm
+++ b/Xerl/Page/Document.pm
@@ -45,7 +45,7 @@ sub parse($) {
 
     my $document = $config->get_document();
     my ($filename) = $document =~ m#([^/]+)$#;
-    my ($postfix) = $document =~ /\.(.+)$/;
+    my ($postfix)  = $document =~ /\.(.+)$/;
     my $path;
 
     print 'Content-Type: ';
@@ -62,10 +62,11 @@ sub parse($) {
 
     my Xerl::Tools::FileIO $io = Xerl::Tools::FileIO->new( path => $path );
 
-    if (-1 == $io->fslurp()) {
-	$config->set_shutdown(1);
-    } else {
-    	$io->print();
+    if ( -1 == $io->fslurp() ) {
+        $config->set_shutdown(1);
+    }
+    else {
+        $io->print();
     }
 
     return undef;
diff --git a/Xerl/Page/Menu.pm b/Xerl/Page/Menu.pm
index 326f508..2545bc0 100644
--- a/Xerl/Page/Menu.pm
+++ b/Xerl/Page/Menu.pm
@@ -74,12 +74,12 @@ sub get_menu($$$$) {
         path     => $config->get_hostpath() . $content,
         basename => 1,
     );
- 
-    unless ($io->exists()) {
-    	Xerl::Main::Global::REDIRECT( $config->get_404() );
-	$config->set_shutdown(1);
+
+    unless ( $io->exists() ) {
+        Xerl::Main::Global::REDIRECT( $config->get_404() );
+        $config->set_shutdown(1);
     }
-    
+
     $io->dslurp();
     my $dir = $io->get_array();
 
diff --git a/Xerl/Page/Templates.pm b/Xerl/Page/Templates.pm
index 84adf30..aef9be0 100644
--- a/Xerl/Page/Templates.pm
+++ b/Xerl/Page/Templates.pm
@@ -75,10 +75,10 @@ sub parse($) {
         my Xerl::Tools::FileIO $io =
           Xerl::Tools::FileIO->new( path => $cachepath . $cachefile );
 
-        if (-1 == $io->fslurp()) {
-		$config->set_shutdown(1);
-		return undef;
-	}
+        if ( -1 == $io->fslurp() ) {
+            $config->set_shutdown(1);
+            return undef;
+        }
 
         $self->set_array( $io->get_array() );
 
@@ -93,10 +93,10 @@ sub parse($) {
         my Xerl::XML::Reader $xmlconfigreader =
           Xerl::XML::Reader->new( path => $xmlconfigpath, config => $config );
 
-        if (-1 == $xmlconfigreader->open()) {
-		$config->set_shutdown(1);
-		return undef;
-	}
+        if ( -1 == $xmlconfigreader->open() ) {
+            $config->set_shutdown(1);
+            return undef;
+        }
         $xmlconfigreader->parse();
         $config->set_xmlconfigrootobj( $xmlconfigreader->get_root() );