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.pm | |
| parent | c183faa4d53b6e4f091d6b38397847e55b5d2251 (diff) | |
temp remove includedirs tag, perltidy indention set to 2, initial XML::LibXML
Diffstat (limited to 'Xerl.pm')
| -rw-r--r-- | Xerl.pm | 56 |
1 files changed, 28 insertions, 28 deletions
@@ -44,45 +44,45 @@ use Xerl::Page::Request; use Xerl::Page::Templates; sub run($) { - my Xerl $self = $_[0]; - my $time = [gettimeofday]; + my Xerl $self = $_[0]; + my $time = [gettimeofday]; - my Xerl::Page::Request $request = - Xerl::Page::Request->new( request => $ENV{REQUEST_URI} ); + my Xerl::Page::Request $request = + Xerl::Page::Request->new( request => $ENV{REQUEST_URI} ); - $request->parse(); - my Xerl::Page::Configure $config = - Xerl::Page::Configure->new( config => $self->get_config(), %$request ); + $request->parse(); + my Xerl::Page::Configure $config = + Xerl::Page::Configure->new( config => $self->get_config(), %$request ); - $config->parse(); - return undef if $config->finish_request_exists(); + $config->parse(); + return undef if $config->finish_request_exists(); - $config->defaults(); + $config->defaults(); - my Xerl::Page::Parameter $parameter = - Xerl::Page::Parameter->new( config => $config ); + my Xerl::Page::Parameter $parameter = + Xerl::Page::Parameter->new( config => $config ); - $parameter->parse(); - return undef if $config->finish_request_exists(); + $parameter->parse(); + return undef if $config->finish_request_exists(); - if ( $config->document_exists() ) { - my Xerl::Page::Document $document = - Xerl::Page::Document->new( config => $config ); + if ( $config->document_exists() ) { + my Xerl::Page::Document $document = + Xerl::Page::Document->new( config => $config ); - $document->parse(); - return undef if $config->finish_request_exists(); + $document->parse(); + return undef if $config->finish_request_exists(); - } - else { - my Xerl::Page::Templates $templates = - Xerl::Page::Templates->new( config => $config ); + } + else { + my Xerl::Page::Templates $templates = + Xerl::Page::Templates->new( config => $config ); - $templates->parse(); - return undef if $config->finish_request_exists(); - $templates->print($time); - } + $templates->parse(); + return undef if $config->finish_request_exists(); + $templates->print($time); + } - return undef; + return undef; } 1; |
