Use of uninitialized value in string ne at /usr/local/share/perl/5.10.1/Tree/Nary.pm line 1050.
Use of uninitialized value in string ne at /usr/local/share/perl/5.10.1/Tree/Nary.pm line 1050.
Use of uninitialized value in string ne at /usr/local/share/perl/5.10.1/Tree/Nary.pm line 1050.
Use of uninitialized value in string ne at /usr/local/share/perl/5.10.1/Tree/Nary.pm line 1050.

##</code><code>##

#!/usr/bin/perl -w
use Tree::Nary;
use strict;

my $testtree = Tree::Nary->new;
my $nodeone = $testtree->insert_data($testtree,1);
my $nodetwo = $testtree->insert_data($nodeone,2);
my $nodethree = $testtree->insert_data($nodetwo,3);

my $foundnode = $testtree->find($testtree,$Tree::Nary::PRE_ORDER,$Tree::Nary::TRAVERSE_ALL,3);