diff options
| author | Paul Buetow (pluto.buetow.org) <paul@buetow.org> | 2013-09-15 12:56:45 +0200 |
|---|---|---|
| committer | Paul Buetow (pluto.buetow.org) <paul@buetow.org> | 2013-09-15 12:56:45 +0200 |
| commit | 1b9b7434445e84eef29ccfda9a80b54c19343df5 (patch) | |
| tree | 3018a8e3d4fec9aeee6987e98f74cf8063d7b161 /Xerl | |
| parent | af4ddb3afc5e0fe4c77b9df3bcb4ea4aa2d33c8d (diff) | |
remove libXML
Diffstat (limited to 'Xerl')
| -rw-r--r-- | Xerl/Page/Content.pm | 2 | ||||
| -rw-r--r-- | Xerl/Page/Templates.pm | 10 | ||||
| -rw-r--r-- | Xerl/XML/Reader.pm | 12 |
3 files changed, 5 insertions, 19 deletions
diff --git a/Xerl/Page/Content.pm b/Xerl/Page/Content.pm index bd3e8ee..d9d7d34 100644 --- a/Xerl/Page/Content.pm +++ b/Xerl/Page/Content.pm @@ -213,8 +213,6 @@ sub _insert_special_vars($$$$) { $$rtext =~ s/@\@text\@\@/$_=$element->get_text();chomp;$_/geo; $$rtext =~ s/@\@ln\@\@//go; - #$$rtext =~ s/@\@link\@\@/$element->get_params()->{link}.'$$params$$'/geo; - if ( $$rtext =~ /@\@(.*?)\@\@/ ) { my $params = $element->get_params(); return unless ref $params eq 'HASH'; diff --git a/Xerl/Page/Templates.pm b/Xerl/Page/Templates.pm index 3b7d13f..e018682 100644 --- a/Xerl/Page/Templates.pm +++ b/Xerl/Page/Templates.pm @@ -1,6 +1,6 @@ # Xerl (c) 2005-2011,2013 Dipl.-Inform. (FH) Paul C. Buetow # -# E-Mail: xerl@dev.buetow.org WWW: http://xerl.buetow.org +# E-Mail: xerl@dev.buetow.org WWW: http://xerl.buetow.org # # All rights reserved. # @@ -12,8 +12,8 @@ # notice, this list of conditions and the following disclaimer in the # documentation and/or other materials provided with the distribution. # * Neither the name of buetow.org nor the names of its contributors may -# be used to endorse or promote products derived from this software -# without specific prior written permission. +# be used to endorse or promote products derived from this software +# without specific prior written permission. # # THIS SOFTWARE IS PROVIDED Paul C. Buetow ``AS IS'' AND ANY EXPRESS OR # IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED @@ -188,8 +188,8 @@ sub PARSELINE($$$;$) { $$line =~ s/$sep(!)?(.+?)$sep/ defined $1 ? `$2` : (ref $config->getval($2) eq 'ARRAY') - ? join '', @{$config->getval($2)} : - $config->getval($2)/eg and $$foundflag = 1; + ? join '', @{$config->getval($2)} : + $config->getval($2)/eg and $$foundflag = 1; return undef; } diff --git a/Xerl/XML/Reader.pm b/Xerl/XML/Reader.pm index c349443..3605c04 100644 --- a/Xerl/XML/Reader.pm +++ b/Xerl/XML/Reader.pm @@ -32,19 +32,9 @@ package Xerl::XML::Reader; use strict; use warnings; -use XML::LibXML; - use Xerl::Base; use Xerl::XML::Element; -sub process($) { - my Xerl::XML::Reader $self = shift; - - my $doc = XML::LibXML->load_xml(location => $self->get_path()); - - return undef; -} - sub open($) { my Xerl::XML::Reader $self = $_[0]; @@ -60,8 +50,6 @@ sub open($) { sub parse($) { my Xerl::XML::Reader $self = $_[0]; - my $process = $self->process(); - my $rarray = $self->get_array(); return $self unless ref $rarray eq 'ARRAY'; |