summaryrefslogtreecommitdiff
path: root/Xerl/Page
diff options
context:
space:
mode:
Diffstat (limited to 'Xerl/Page')
-rw-r--r--Xerl/Page/Configure.pm2
-rw-r--r--Xerl/Page/Content.pm6
-rw-r--r--Xerl/Page/Document.pm2
-rw-r--r--Xerl/Page/Menu.pm2
-rw-r--r--Xerl/Page/Parameter.pm2
-rw-r--r--Xerl/Page/Request.pm2
-rw-r--r--Xerl/Page/Rules.pm2
-rw-r--r--Xerl/Page/Templates.pm2
8 files changed, 16 insertions, 4 deletions
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;