Dave Cross: Still Munging Data With Perl: Online event - Mar 17 Learn more

LTHEISEN / Maven-Agent-1.08 / lib / Maven / Xml / XmlNodeParser.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
—
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112

              
use strict;
use warnings;
package Maven::Xml::XmlNodeParser;
$Maven::Xml::XmlNodeParser::VERSION = '1.08';
# ABSTRACT: A parser for a Maven XML node
# PODNAME: Maven::Xml::XmlNodeParser
use parent qw(Class::Accessor);
use XML::LibXML::Reader qw(:types);
sub new {
    return bless( {}, shift )->_init(@_);
}
sub _add_value {
    my ( $self, $name, $value ) = @_;
    if ( defined( $self->{$name} ) ) {
        my $existing = $self->{$name};
        if ( ref($existing) eq 'ARRAY' ) {
            push( @$existing, $value );
        }
        else {
            my @values = ( $existing, $value );
            $self->{$name} = \@values;
        }
    }
    else {
        $self->{$name} = $value;
    }
}
sub _init {
    return $_[0];
}
sub _get_parser {
    return $_[0];
}
sub _key {
    my ( $self, $default ) = @_;
    return $default;
}
sub _parse_node {
    my ( $self, $reader, $types ) = @_;
    my $name;
    my $value;
    while ( $reader->read() ) {
        if ( $reader->nodeType() == XML_READER_TYPE_ELEMENT ) {
            $name = $reader->name();
            if ( $reader->isEmptyElement() ) {
                $self->_add_value( $name, undef );
            }
            else {
                $self->_add_value( $name, $self->_get_parser($name)->_parse_node($reader) );
            }
            $value = $self;
        }
        elsif ($reader->nodeType() == XML_READER_TYPE_TEXT
            || $reader->nodeType() == XML_READER_TYPE_CDATA )
        {
            $value = $reader->value();
        }
        elsif ( $reader->nodeType() == XML_READER_TYPE_END_ELEMENT ) {
            return $value;
        }
    }
}
1;
__END__
=pod
=head1 NAME
Maven::Xml::XmlNodeParser - A parser for a Maven XML node
=head1 VERSION
version 1.08
=head1 AUTHOR
Lucas Theisen <lucastheisen@pastdev.com>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2014 by Lucas Theisen.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=head1 SEE ALSO
Please see those modules/websites for more information related to this module.
=over 4
=item *
L<Maven::Agent|Maven::Agent>
=back
=cut