Select Code to Download

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