view release on metacpan or  search on metacpan

lib/Jabber/NodeFactory.pm  view on Meta::CPAN

  my $node = {
               name   => $name,
               attrs  => {},
               data   => '',
               kids   => [],
               parent => $parent,
             };

  weaken($node->{parent}); # XXX
  bless $node => $class;
  $node->attr('xmlns' => $xmlns) if $xmlns;
  return $node;

}


=item name()

Returns the name (the tag name) of the node, in the form of a string.