From 6444bb641cef5e487655aec0b537be25b231091b Mon Sep 17 00:00:00 2001
From: "Paul Buetow (pluto.buetow.org)" <paul@buetow.org>
Date: Sat, 28 Sep 2013 21:55:10 +0200
Subject: use v5.10.0

---
 Xerl/Base.pm           | 6 ++++--
 Xerl/Main/Global.pm    | 9 +++++++--
 Xerl/Page/Configure.pm | 2 ++
 Xerl/Page/Content.pm   | 6 ++----
 Xerl/Page/Document.pm  | 2 ++
 Xerl/Page/Menu.pm      | 2 ++
 Xerl/Page/Parameter.pm | 2 ++
 Xerl/Page/Request.pm   | 2 ++
 Xerl/Page/Rules.pm     | 2 ++
 Xerl/Page/Templates.pm | 2 ++
 index.fpl              | 2 ++
 index.pl               | 2 ++
 12 files changed, 31 insertions(+), 8 deletions(-)

diff --git a/Xerl/Base.pm b/Xerl/Base.pm
index 87d22b0..b85d6fe 100644
--- a/Xerl/Base.pm
+++ b/Xerl/Base.pm
@@ -10,6 +10,8 @@ package UNIVERSAL;
 use strict;
 use warnings;
 
+use 5.10.0;
+
 use Data::Dumper;
 
 sub new ($;) {
@@ -100,12 +102,12 @@ sub AUTOLOAD {
 
   }
   elsif ( $auto =~ /.*::dumper$/ ) {
-    print Dumper @_;
+    say Dumper @_;
     return undef;
 
   }
   else {
-    print "$auto is not a method of $self or UNIVERSAL\n";
+    say "$auto is not a method of $self or UNIVERSAL";
   }
 
   return $self;
diff --git a/Xerl/Main/Global.pm b/Xerl/Main/Global.pm
index bf78ce0..e1a4a44 100644
--- a/Xerl/Main/Global.pm
+++ b/Xerl/Main/Global.pm
@@ -7,6 +7,11 @@
 
 package Xerl::Main::Global;
 
+use strict;
+use warnings;
+
+use v5.10.0;
+
 sub SHUTDOWN {
   exit 0;
 
@@ -15,7 +20,7 @@ sub SHUTDOWN {
 }
 
 sub DEBUG {
-  print 'Debug::', @_, "\n";
+  say "Debug::@_";
 
   return undef;
 }
@@ -40,7 +45,7 @@ sub PLAIN {
 
 sub REDIRECT ($) {
   my $location = shift;
-  print "Status: 301 Moved Permanantly\n";
+  say "Status: 301 Moved Permanantly";
   print "Location: $location\n\n";
   return undef;
 }
diff --git a/Xerl/Page/Configure.pm b/Xerl/Page/Configure.pm
index 972a805..f7acf83 100644
--- a/Xerl/Page/Configure.pm
+++ b/Xerl/Page/Configure.pm
@@ -10,6 +10,8 @@ package Xerl::Page::Configure;
 use strict;
 use warnings;
 
+use v5.10.0;
+
 use Xerl::Base;
 use Xerl::Tools::FileIO;
 use Xerl::XML::Element;
diff --git a/Xerl/Page/Content.pm b/Xerl/Page/Content.pm
index efe5a82..c9b9cb9 100644
--- a/Xerl/Page/Content.pm
+++ b/Xerl/Page/Content.pm
@@ -10,6 +10,8 @@ package Xerl::Page::Content;
 use strict;
 use warnings;
 
+use v5.10.0;
+
 use Xerl::Base;
 
 use Xerl::XML::Reader;
@@ -73,8 +75,6 @@ sub _insertrules($$$) {
   my Xerl::Page::Configure $config = $self->get_config();
   my $nonewlines                   = 0;
 
-  #$element->print();
-  #
   # Don't interate through the XML childs if we have a leaf node.
   return () unless ref $element->get_array() eq 'ARRAY';
   my ( $name, $rule, @content, $text, $params );
@@ -102,8 +102,6 @@ sub _insertrules($$$) {
 
       }
       elsif ( lc $name eq 'perl' ) {
-
-        # Perl content will be interpreted by Xerl::Page::Templates::print later
         push @content, '<perl>', $text, '</perl>';
 
       }
diff --git a/Xerl/Page/Document.pm b/Xerl/Page/Document.pm
index 4f53718..83e638d 100644
--- a/Xerl/Page/Document.pm
+++ b/Xerl/Page/Document.pm
@@ -10,6 +10,8 @@ package Xerl::Page::Document;
 use strict;
 use warnings;
 
+use v5.10.0;
+
 use Xerl::Base;
 use Xerl::Main::Global;
 use Xerl::Page::Configure;
diff --git a/Xerl/Page/Menu.pm b/Xerl/Page/Menu.pm
index 11ce5b0..d57cc65 100644
--- a/Xerl/Page/Menu.pm
+++ b/Xerl/Page/Menu.pm
@@ -10,6 +10,8 @@ package Xerl::Page::Menu;
 use strict;
 use warnings;
 
+use v5.10.0;
+
 use Xerl::Page::Configure;
 use Xerl::Tools::FileIO;
 use Xerl::XML::Element;
diff --git a/Xerl/Page/Parameter.pm b/Xerl/Page/Parameter.pm
index 5c9c159..40ddd82 100644
--- a/Xerl/Page/Parameter.pm
+++ b/Xerl/Page/Parameter.pm
@@ -10,6 +10,8 @@ package Xerl::Page::Parameter;
 use strict;
 use warnings;
 
+use v5.10.0;
+
 use Xerl::Base;
 use Xerl::Main::Global;
 use Xerl::Page::Configure;
diff --git a/Xerl/Page/Request.pm b/Xerl/Page/Request.pm
index d1a67af..9039721 100644
--- a/Xerl/Page/Request.pm
+++ b/Xerl/Page/Request.pm
@@ -10,6 +10,8 @@ package Xerl::Page::Request;
 use strict;
 use warnings;
 
+use v5.10.0;
+
 use Xerl::Base;
 
 sub parse($) {
diff --git a/Xerl/Page/Rules.pm b/Xerl/Page/Rules.pm
index 7a27939..8424e1a 100644
--- a/Xerl/Page/Rules.pm
+++ b/Xerl/Page/Rules.pm
@@ -10,6 +10,8 @@ package Xerl::Page::Rules;
 use strict;
 use warnings;
 
+use v5.10.0;
+
 use Xerl::Base;
 use Xerl::XML::Element;
 use Xerl::Page::Configure;
diff --git a/Xerl/Page/Templates.pm b/Xerl/Page/Templates.pm
index 093731a..85637ff 100644
--- a/Xerl/Page/Templates.pm
+++ b/Xerl/Page/Templates.pm
@@ -10,6 +10,8 @@ package Xerl::Page::Templates;
 use strict;
 use warnings;
 
+use v5.10.0;
+
 use Time::HiRes 'tv_interval';
 use Digest::MD5;
 
diff --git a/index.fpl b/index.fpl
index 8fb5656..3fa5150 100755
--- a/index.fpl
+++ b/index.fpl
@@ -10,6 +10,8 @@
 use strict;
 use warnings;
 
+use v5.10.0;
+
 use Xerl;
 
 use FCGI;
diff --git a/index.pl b/index.pl
index 11c7f6e..da08756 100755
--- a/index.pl
+++ b/index.pl
@@ -10,6 +10,8 @@
 use strict;
 use warnings;
 
+use v5.10.0;
+
 use Xerl;
 
 use Socket;
-- 
cgit v1.2.3