diff options
| author | Paul Buetow (pluto.buetow.org) <paul@buetow.org> | 2013-09-28 21:55:10 +0200 |
|---|---|---|
| committer | Paul Buetow (pluto.buetow.org) <paul@buetow.org> | 2013-09-28 21:55:10 +0200 |
| commit | 6444bb641cef5e487655aec0b537be25b231091b (patch) | |
| tree | c07818cc638778db203e0f621c3894cd1bfb7234 /Xerl/Page/Content.pm | |
| parent | 7da5436ceb9179d107550f3f563b5119c1cf0310 (diff) | |
use v5.10.0
Diffstat (limited to 'Xerl/Page/Content.pm')
| -rw-r--r-- | Xerl/Page/Content.pm | 6 |
1 files changed, 2 insertions, 4 deletions
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>'; } |