Select Code to Download

--- /usr/share/perl5/Tree/DAG_Node.pm    2018-02-13 23:16:43.000000000
+ +0100
+++ /home/shmem/perl/lib/Tree/DAG_Node.pm    2018-04-23 03:46:29.60751
+5296 +0200
...
         $one->walk_down($o) if UNIVERSAL::can($one, 'is_node');
         # and if it can do "is_node", it should provide a walk_down!
       }

 root    HASH (0           ): { nc => 0, top_foo => 1 }
    a    HASH (0:0         ): { nc => 1 }
...
    h    HASH (0:1         ): { nc => 8 }
    i    HASH (0:1:0       ): { nc => 9 }
    j    HASH (0:1:0:0     ): { nc => 10 }