Help for this page

Select Code to Download


  1. or download this
    NODE => sub { my ($t, $node) = @_;
                                 my $nodeid = $node->att ('id');
                                 !exists ($nodehash {$nodeid}) or croak "N
    +ode $nodeid is duplicated!";
    ...
                                                       };
                                 $t->purge;
                               }