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/XML | |
| parent | 98eea5583d0c3b52d0fe3dde9e9870ccba2fb983 (diff) | |
refactor
Diffstat (limited to 'Xerl/XML')
| -rw-r--r-- | Xerl/XML/Element.pm | 17 | ||||
| -rw-r--r-- | Xerl/XML/Reader.pm | 12 | ||||
| -rw-r--r-- | Xerl/XML/SAXHandler.pm | 2 |
3 files changed, 14 insertions, 17 deletions
diff --git a/Xerl/XML/Element.pm b/Xerl/XML/Element.pm index 0867841..f1f79fd 100644 --- a/Xerl/XML/Element.pm +++ b/Xerl/XML/Element.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 # @@ -12,8 +12,8 @@ use warnings; use Xerl::Base; -sub starttag($$) { - my Xerl::XML::Element $self = $_[0]; +sub starttag { + my $self = $_[0]; my ( $name, $temp ) = ( $_[1], undef ); return $self if $self->get_name() eq $name; @@ -27,22 +27,21 @@ sub starttag($$) { return undef; } -sub starttag2($$$) { - my Xerl::XML::Element $self = $_[0]; +sub starttag2 { + my $self = $_[0]; my ( $name, $after ) = @_[ 1 ... 2 ]; - my Xerl::XML::Element $element = $self->starttag($name); + my $element = $self->starttag($name); return $element->starttag($after) if defined $element; return undef; } -sub params_str($) { - my Xerl::XML::Element $self = $_[0]; +sub params_str { + my $self = $_[0]; my $params = $self->get_params(); return undef if $params eq ''; - return join '', map { " $_=\"" . $params->{$_} . '"' } keys %$params; } diff --git a/Xerl/XML/Reader.pm b/Xerl/XML/Reader.pm index ae5a07b..88c727a 100644 --- a/Xerl/XML/Reader.pm +++ b/Xerl/XML/Reader.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 # @@ -18,8 +18,8 @@ use Xerl::Base; use Xerl::XML::Element; use Xerl::XML::SAXHandler; -sub open($) { - my Xerl::XML::Reader $self = shift; +sub open { + my $self = shift; if ( -f $self->get_path() ) { return 0; @@ -29,14 +29,12 @@ sub open($) { } } -sub parse() { - my Xerl::XML::Reader $self = shift; +sub parse { + my $self = shift; my $sax_handler = Xerl::XML::SAXHandler->new(); my $parser = XML::SAX::ParserFactory->parser( Handler => $sax_handler ); - $parser->parse_uri( $self->get_path() ); - $self->set_root( $sax_handler->{xerl}{root} ); return undef; diff --git a/Xerl/XML/SAXHandler.pm b/Xerl/XML/SAXHandler.pm index 9ba7729..b168c5f 100644 --- a/Xerl/XML/SAXHandler.pm +++ b/Xerl/XML/SAXHandler.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 # |