Perl x Open Food Facts Hackathon: Paris, France - May 24-25 Learn more

XANT / XML-TinyXML-0.15 / lib / XML / TinyXML / NodeAttribute.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
113
114
115
116
117
118
119
120
121
122
123
124
125
—
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150

              
# -*- tab-width: 4 -*-
# ex: set tabstop=4:
=head1 NAME
XML::TinyXML::Node - Tinyxml Node object
=head1 SYNOPSIS
=over 4
  use XML::TinyXML::Node;
  $node = XML::TinyXML::Node->new("child", "somevalue", { attribute => "value" });
  $attr = $node->getAttribute("attribute");
  or
  $attr = $node->getAttribute(1); # attribute at index 1
  or
  @attrs = $node->getAttributes(); # returns all attributes in the node
   
=back
=head1 DESCRIPTION
Node representation for the TinyXML API
=head1 INSTANCE VARIABLES
=over 4
=item * _attr
Reference to the underlying XmlNodeAttributePtr object (which is a binding to the XmlNode C structure)
=back
=head1 METHODS
=over 4
=cut
package XML::TinyXML::NodeAttribute;
  
use strict;
our $VERSION = "0.15";
=item new ($attr)
Wrap the XmlNodeAttributePtr C structure exposing accessor to its members
=cut
sub new {
    my ($class, $attr) = @_;
    return undef unless(UNIVERSAL::isa($attr, "XmlNodeAttributePtr"));
    my $self = bless({ _attr => $attr }, $class);
    return $self;
}
=item name ([$newName])
Get/Set the name of the attribute
=cut
sub name {
    my ($self, $newName) = @_;
    my $name = $self->{_attr}->name;
    if ($newName) {
        $self->{_attr}->name($newName);
    }
    return $name;
}
=item value ([$newName])
Get/Set the value of the attribute
=cut
sub value {
    my ($self, $newValue) = @_;
    my $value = $self->{_attr}->value;
    if ($newValue) {
        $self->{_attr}->value($newValue);
    }
    return $value;
}
=item value ([$newName])
Get/Set the XML::TinyXML::Node to which this attribute belongs
=cut
sub node {
    my $self = shift;
    return XML::TinyXML::Node->new($self->{_attr}->node);
}
=item path ()
Returns the unique path identifying this attribute
(can be used in xpath expressions)
=cut
sub path {
    my $self = shift;
    return sprintf("%s/\@%s", $self->{_attr}->node->path, $self->name);
}
=item type ()
Returns the type of this node
(at the moment it will return always the string : "ATTRIBUTE" 
 which can be used to distinguish attribute-nodes from xml-nodes
 in @sets returned by xpath selections)
=cut
sub type {
    return "ATTRIBUTE";
}
1;
=back
=head1 SEE ALSO
=over 4
XML::TinyXML::Node XML::TinyXML
=back
=head1 AUTHOR
xant, E<lt>xant@cpan.orgE<gt>
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2008 by xant
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.8 or,
at your option, any later version of Perl 5 you may have available.
=cut