Help for this page

Select Code to Download


  1. or download this
       my $call_recurse_tree = sub {
      my $node = shift;
      &recurse_tree($node);
   };
  2. or download this
             # PROCESS CHILDREN LIST: recurse_tree will be called on each 
+child of the input Dir Node
         Tree::Nary->children_foreach($node, $Tree::Nary::TRAVERSE_ALL
+, $call_recurse_tree);