NODE => sub { my ($t, $node) = @_; my $nodeid = $node->att ('id'); !exists ($nodehash {$nodeid}) or croak "Node $nodeid is duplicated!"; $nodehash {$nodeid} = {'nodeid' => $nodeid, 'title' => $node->text, 'rep' => $node->att ('reputation'), 'last' => $node->att ('reputation'), 'date' => $node->att ('createtime') }; $t->purge; }