Lines Matching refs:node
88 my ($node, $child_name) = @_;
90 if ( ! defined $node)
96 my $value = $node->{$child_name};
118 my ($node, $default_text) = @_;
120 if ( ! defined $node)
133 my $text = $node->{'__text__'};
143 my ($node, $attribute_name) = @_;
145 my $attributes = $node->{'__attributes__'};
220 my $node = {'__attributes__' => {@attributes}};
225 push @{$current_node->{$element_name}}, $node;
229 $data->{'current_node'} = $node;
273 my ($indentation, $node) = @_;
275 if (defined $node->{'__attributes__'})
277 while (my ($name,$attribute) = each(%{$node->{'__attributes__'}}))
283 while (my ($key,$value) = each(%$node))