From b16cca8b3944c071a15ba57820804cfb6da9cbdb Mon Sep 17 00:00:00 2001 From: "Chuck Norris (mars.fritz.box)" Date: Thu, 28 Aug 2014 09:33:11 +0200 Subject: refactor --- Xerl.pm | 26 ++++++++++---------------- 1 file changed, 10 insertions(+), 16 deletions(-) (limited to 'Xerl.pm') diff --git a/Xerl.pm b/Xerl.pm index fe9b873..53e4da7 100644 --- a/Xerl.pm +++ b/Xerl.pm @@ -1,4 +1,4 @@ -# Xerl (c) 2005-2011, 2013 Dipl.-Inform. (FH) Paul C. Buetow +# Xerl (c) 2005-2011, 2013, 2014 by Paul Buetow # # E-Mail: xerl@dev.buetow.org WWW: http://xerl.buetow.org # @@ -23,40 +23,34 @@ use Xerl::Setup::Configure; use Xerl::Setup::Parameter; use Xerl::Setup::Request; -sub run($) { +sub run { my Xerl $self = $_[0]; my $time = [gettimeofday]; - my Xerl::Setup::Request $request = - Xerl::Setup::Request->new( request => $ENV{REQUEST_URI} ); - + my $request = Xerl::Setup::Request->new( request => $ENV{REQUEST_URI} ); $request->parse(); - my Xerl::Setup::Configure $config = - Xerl::Setup::Configure->new( config => $self->get_config(), %$request ); + my $config = Xerl::Setup::Configure->new( + config => $self->get_config(), %$request + ); $config->parse(); + return undef if $config->finish_request_exists(); $config->defaults(); - my Xerl::Setup::Parameter $parameter = - Xerl::Setup::Parameter->new( config => $config ); - + my $parameter = Xerl::Setup::Parameter->new( config => $config ); $parameter->parse(); return undef if $config->finish_request_exists(); if ( $config->document_exists() ) { - my Xerl::Page::Document $document = - Xerl::Page::Document->new( config => $config ); - + my $document = Xerl::Page::Document->new( config => $config ); $document->parse(); return undef if $config->finish_request_exists(); } else { - my Xerl::Page::Templates $templates = - Xerl::Page::Templates->new( config => $config ); - + my $templates = Xerl::Page::Templates->new( config => $config ); $templates->parse(); return undef if $config->finish_request_exists(); $templates->print($time); -- cgit v1.2.3 From 11b1896cf142b490323a91b04344a20e7a25c9f4 Mon Sep 17 00:00:00 2001 From: "Chuck Norris (mars.fritz.box)" Date: Thu, 28 Aug 2014 09:36:37 +0200 Subject: un perltig --- Xerl.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Xerl.pm') diff --git a/Xerl.pm b/Xerl.pm index 53e4da7..227dbe9 100644 --- a/Xerl.pm +++ b/Xerl.pm @@ -31,7 +31,8 @@ sub run { $request->parse(); my $config = Xerl::Setup::Configure->new( - config => $self->get_config(), %$request + config => $self->get_config(), + %$request ); $config->parse(); -- cgit v1.2.3 From de8b70c1a5b46b0e0e375d364cd714aaaadf7f9b Mon Sep 17 00:00:00 2001 From: "Paul Buetow (europa)" Date: Sun, 31 May 2015 16:58:48 +0100 Subject: Recursivity. Call back if it happens again. --- Xerl.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Xerl.pm') diff --git a/Xerl.pm b/Xerl.pm index 227dbe9..6dfc8f4 100644 --- a/Xerl.pm +++ b/Xerl.pm @@ -1,6 +1,6 @@ -# Xerl (c) 2005-2011, 2013, 2014 by Paul Buetow +# Xerl (c) 2005-2011, 2013-2015 by Paul Buetow # -# E-Mail: xerl@dev.buetow.org WWW: http://xerl.buetow.org +# E-Mail: xerl@dev.buetow.org WWW: https://xerl.buetow.org # # This is free software, you may use it and distribute it under the same # terms as Perl itself. -- cgit v1.2.3 From a0202a13efbfe18c99e64e3e3b95d39cd65fbffe Mon Sep 17 00:00:00 2001 From: "paul (uranus)" Date: Sun, 1 Jan 2017 11:42:01 +0000 Subject: no carp --- Xerl.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Xerl.pm') diff --git a/Xerl.pm b/Xerl.pm index 6dfc8f4..fd1421e 100644 --- a/Xerl.pm +++ b/Xerl.pm @@ -1,4 +1,4 @@ -# Xerl (c) 2005-2011, 2013-2015 by Paul Buetow +# Xerl (c) 2005-2011, 2013-2015, 2017 by Paul Buetow # # E-Mail: xerl@dev.buetow.org WWW: https://xerl.buetow.org # @@ -12,7 +12,7 @@ use warnings; use v5.14.0; -use CGI::Carp 'fatalsToBrowser'; +#use CGI::Carp 'fatalsToBrowser'; use Time::HiRes 'gettimeofday'; use Xerl::Base; -- cgit v1.2.3