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/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 ++
 8 files changed, 16 insertions(+), 4 deletions(-)

(limited to 'Xerl/Page')

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;
 
-- 
cgit v1.2.3