view release on metacpan or  search on metacpan

examples/svg_dom_sample.pl  view on Meta::CPAN

print "The document element has ",scalar (@kids)," children (should be 1)\n";

foreach my $kid (@kids) {
    print "Found a <",$kid->getElementName(),"> child element:\n";
    show_attributes($kid);
}

# Test of getElementByID
#
my $group=$s->getElementByID("group_1");
print "Group 1 relocated by id group_1\n" if $group==$g1;

print "\n","="x40,"\n";

# Test of getChildren
#
my $children = $group->getChildren();
foreach my $v (0..$#{$children}) {
    # Test of getElementName on this child
    #
    my $name = $children->[$v]->getElementName;