From f179bb94b7c657e1ae238e91c1bb92596ee3de27 Mon Sep 17 00:00:00 2001 From: "Paul Buetow (mars.fritz.box)" Date: Thu, 3 Oct 2013 13:10:12 +0200 Subject: update all target --- Xerl/XML/SAXHandler.pm | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) (limited to 'Xerl/XML') diff --git a/Xerl/XML/SAXHandler.pm b/Xerl/XML/SAXHandler.pm index 9aa1e9d..9ba7729 100644 --- a/Xerl/XML/SAXHandler.pm +++ b/Xerl/XML/SAXHandler.pm @@ -40,12 +40,12 @@ sub start_element { my %params = map { $_->{Name} => $_->{Value} } values %{ $doc->{Attributes} }; - # Extract name and flags from a tag such as: .. - my ($name, @flags) = _GET_NAME_N_FLAG($doc->{Name}); + # Extract name and flags from a tag such as: .. + my ( $name, @flags ) = _GET_NAME_N_FLAG( $doc->{Name} ); $x->{current} = Xerl::XML::Element->new(); $x->{current}->set_text(''); - $x->{current}->set_name( $name ); + $x->{current}->set_name($name); $x->{current}->set( "flag_$_", 1 ) for @flags; $x->{current}->set_params( \%params ) if %params; @@ -80,11 +80,12 @@ sub end_element { sub _GET_NAME_N_FLAG ($) { my $string = shift; - my ($name, $flags) = $string =~ /^(.+)\.xerl\.(.*)$/; + my ( $name, $flags ) = $string =~ /^(.+)\.xerl\.(.*)$/; - if (defined $flags) { - return ($name, split(/\./, $flags)); - } else { + if ( defined $flags ) { + return ( $name, split( /\./, $flags ) ); + } + else { return ($string); } } -- cgit v1.2.3