Hi!
I hope anyone can help me with the Tree::Nary module. Basically it's a module for handling a tree data structure where every node can have multiple children. Click Here for the CPAN page of the module.

I'm trying to traverse the tree (using the traverse function) and print all the nodes in the tree.
I have used the following function to do so:
sub printcats {
   my ($class, $tree) = @_;

   my $printsub = sub {
                         my $node = shift;
                         print $node->{data}, "\n";
                      };

   $tree->traverse($tree,
                   $Tree::Nary::PRE_ORDER,
                   $Tree::Nary::TRAVERSE_ALL,
                   -1,
                   $printsub
                  );
}

[download]
This function only prints the root tree. I know there's more than one node (The root) in the tree because the number-of-nodes function returns the correct number. Also, when using IN_ORDER or POST_ORDER instead of PRE_ORDER, one of the root's children is printed instead.

Why does this happen and how can I fix it to make it print the entire tree?
Thanks,
Ido.

-------------------------
Live fat, die young

In reply to Need help with Tree::Nary by ido50

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.