diff options
| -rw-r--r-- | Xerl/Base.pm | 6 | ||||
| -rw-r--r-- | Xerl/Main/Global.pm | 9 | ||||
| -rw-r--r-- | Xerl/Page/Configure.pm | 2 | ||||
| -rw-r--r-- | Xerl/Page/Content.pm | 6 | ||||
| -rw-r--r-- | Xerl/Page/Document.pm | 2 | ||||
| -rw-r--r-- | Xerl/Page/Menu.pm | 2 | ||||
| -rw-r--r-- | Xerl/Page/Parameter.pm | 2 | ||||
| -rw-r--r-- | Xerl/Page/Request.pm | 2 | ||||
| -rw-r--r-- | Xerl/Page/Rules.pm | 2 | ||||
| -rw-r--r-- | Xerl/Page/Templates.pm | 2 | ||||
| -rwxr-xr-x | index.fpl | 2 | ||||
| -rwxr-xr-x | 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; @@ -10,6 +10,8 @@ use strict; use warnings; +use v5.10.0; + use Xerl; use FCGI; @@ -10,6 +10,8 @@ use strict; use warnings; +use v5.10.0; + use Xerl; use Socket; |