diff options
| author | Paul Buetow (pluto.buetow.org) <paul@buetow.org> | 2013-09-15 11:51:10 +0200 |
|---|---|---|
| committer | Paul Buetow (pluto.buetow.org) <paul@buetow.org> | 2013-09-15 11:51:10 +0200 |
| commit | 6aa12ae5f556ab884b7705379c41a566df86d028 (patch) | |
| tree | 85441b3a046f58970ebe9ad55460c16e4f4d3d01 /Xerl/Page/Parameter.pm | |
| parent | c183faa4d53b6e4f091d6b38397847e55b5d2251 (diff) | |
temp remove includedirs tag, perltidy indention set to 2, initial XML::LibXML
Diffstat (limited to 'Xerl/Page/Parameter.pm')
| -rw-r--r-- | Xerl/Page/Parameter.pm | 44 |
1 files changed, 22 insertions, 22 deletions
diff --git a/Xerl/Page/Parameter.pm b/Xerl/Page/Parameter.pm index 3f580a7..ba0a6cd 100644 --- a/Xerl/Page/Parameter.pm +++ b/Xerl/Page/Parameter.pm @@ -38,33 +38,33 @@ use Xerl::Page::Configure; use Xerl::Tools::FileIO; sub parse($) { - my Xerl::Page::Parameter $self = $_[0]; - my Xerl::Page::Configure $config = $self->get_config(); + my Xerl::Page::Parameter $self = $_[0]; + my Xerl::Page::Configure $config = $self->get_config(); - print "Content-Type: text/plain\n\n" - if $config->plain_exists(); + print "Content-Type: text/plain\n\n" + if $config->plain_exists(); - if ( $config->href_exists() ) { - print "Location: ", $config->get_href(), "\n\n"; - $config->set_finish_request(1); - } - elsif ( $config->env_exists() ) { - print "Content-Type: text/plain\n\n"; - print "$_=", $ENV{$_}, "\n" for keys %ENV; - $config->set_finish_request(1); - } + if ( $config->href_exists() ) { + print "Location: ", $config->get_href(), "\n\n"; + $config->set_finish_request(1); + } + elsif ( $config->env_exists() ) { + print "Content-Type: text/plain\n\n"; + print "$_=", $ENV{$_}, "\n" for keys %ENV; + $config->set_finish_request(1); + } - if ( $config->devel_exists() ) { - $config->set_nocache(1); - } + if ( $config->devel_exists() ) { + $config->set_nocache(1); + } - if ( $config->conf_exists() ) { - print "Content-Type: text/plain\n\n"; - print "$_=", $config->{$_}, "\n" for keys %$config; - $config->set_finish_request(1); - } + if ( $config->conf_exists() ) { + print "Content-Type: text/plain\n\n"; + print "$_=", $config->{$_}, "\n" for keys %$config; + $config->set_finish_request(1); + } - return $self; + return $self; } 1; |
