diff options
| author | Chuck Norris (mars.fritz.box) <paul@buetow.org> | 2014-08-28 09:33:11 +0200 |
|---|---|---|
| committer | Chuck Norris (mars.fritz.box) <paul@buetow.org> | 2014-08-28 09:33:11 +0200 |
| commit | b16cca8b3944c071a15ba57820804cfb6da9cbdb (patch) | |
| tree | 91d7939813d251e13a0b62f2cca6b3a8b5085d9a /Xerl/Page/Document.pm | |
| parent | 98eea5583d0c3b52d0fe3dde9e9870ccba2fb983 (diff) | |
refactor
Diffstat (limited to 'Xerl/Page/Document.pm')
| -rw-r--r-- | Xerl/Page/Document.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/Xerl/Page/Document.pm b/Xerl/Page/Document.pm index 89ae788..b7cafa3 100644 --- a/Xerl/Page/Document.pm +++ b/Xerl/Page/Document.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 # @@ -17,9 +17,9 @@ use Xerl::Main::Global; use Xerl::Setup::Configure; use Xerl::Tools::FileIO; -sub parse($) { - my Xerl::Page::Document $self = $_[0]; - my Xerl::Setup::Configure $config = $self->get_config(); +sub parse { + my $self = $_[0]; + my $config = $self->get_config(); return undef unless $config->document_exists(); @@ -40,7 +40,7 @@ sub parse($) { . "/htdocs/$document"; } - my Xerl::Tools::FileIO $io = Xerl::Tools::FileIO->new( path => $path ); + my $io = Xerl::Tools::FileIO->new( path => $path ); if ( -1 == $io->fslurp() ) { $config->set_finish_request(1); |