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/Content.pm | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

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

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