diff options
Diffstat (limited to 'Xerl/XML/Element.pm')
| -rw-r--r-- | Xerl/XML/Element.pm | 49 |
1 files changed, 0 insertions, 49 deletions
diff --git a/Xerl/XML/Element.pm b/Xerl/XML/Element.pm deleted file mode 100644 index 0867841..0000000 --- a/Xerl/XML/Element.pm +++ /dev/null @@ -1,49 +0,0 @@ -# Xerl (c) 2005-2011, 2013 Dipl.-Inform. (FH) Paul C. Buetow -# -# E-Mail: xerl@dev.buetow.org WWW: http://xerl.buetow.org -# -# This is free software, you may use it and distribute it under the same -# terms as Perl itself. - -package Xerl::XML::Element; - -use strict; -use warnings; - -use Xerl::Base; - -sub starttag($$) { - my Xerl::XML::Element $self = $_[0]; - my ( $name, $temp ) = ( $_[1], undef ); - - return $self if $self->get_name() eq $name; - return undef if ref $self->get_array() ne 'ARRAY'; - - for ( @{ $self->get_array() } ) { - $temp = $_->starttag($name); - return $temp if defined $temp; - } - - return undef; -} - -sub starttag2($$$) { - my Xerl::XML::Element $self = $_[0]; - my ( $name, $after ) = @_[ 1 ... 2 ]; - - my Xerl::XML::Element $element = $self->starttag($name); - return $element->starttag($after) if defined $element; - - return undef; -} - -sub params_str($) { - my Xerl::XML::Element $self = $_[0]; - my $params = $self->get_params(); - - return undef if $params eq ''; - - return join '', map { " $_=\"" . $params->{$_} . '"' } keys %$params; -} - -1; |
