lib/Tree/Nary.pm

650 	my ($self, $node, $flags, $funcref, $argref) = (shift, shift, shift, shift, shift);
656 		if(($flags & $TRAVERSE_NON_LEAFS) && &$funcref($node, $argref)) {
668 			if($self->_traverse_pre_order($current, $flags, $funcref, $argref)) {
673 	} elsif(($flags & $TRAVERSE_LEAFS) && &$funcref($node, $argref)) {
682 	my ($self, $node, $flags, $depth, $funcref, $argref) = (shift, shift, shift, shift, shift, shift);
688 		if(($flags & $TRAVERSE_NON_LEAFS) && &$funcref($node, $argref)) {
706 			if($self->_traverse_pre_order($current, $flags, $depth, $funcref, $argref)) {
711 	} elsif(($flags & $TRAVERSE_LEAFS) && &$funcref($node, $argref)) {
720 	my ($self, $node, $flags, $funcref, $argref) = (shift, shift, shift, shift, shift);
735 			if($self->_traverse_post_order($current, $flags, $funcref, $argref)) {
740 		if(($flags & $TRAVERSE_NON_LEAFS) && &$funcref($node, $argref)) {
744 	} elsif(($flags & $TRAVERSE_LEAFS) && &$funcref($node, $argref)) {
753 	my ($self, $node, $flags, $depth, $funcref, $argref) = (shift, shift, shift, shift, shift, shift);
771 				if($self->_depth_traverse_post_order($current, $flags, $depth, $funcref, $argref)) {
776 		if(($flags & $TRAVERSE_NON_LEAFS) && &$funcref($node, $argref)) {
780 	} elsif(($flags & $TRAVERSE_LEAFS) && &$funcref($node, $argref)) {
789 	my ($self, $node, $flags, $funcref, $argref) = (shift, shift, shift, shift, shift);
800 		if($self->_traverse_in_order($current, $flags, $funcref, $argref)) {
803 		if(($flags & $TRAVERSE_NON_LEAFS) && &$funcref($node, $argref)) {
810 			if($self->_traverse_in_order($current, $flags, $funcref, $argref)) {
815 	} elsif(($flags & $TRAVERSE_LEAFS) && &$funcref($node, $argref)) {
824 	my ($self, $node, $flags, $depth, $funcref, $argref) = (shift, shift, shift, shift, shift, shift);
838 			if($self->_depth_traverse_in_order($current, $flags, $depth, $funcref, $argref)) {
841 			if(($flags & $TRAVERSE_NON_LEAFS) && &$funcref($node, $argref)) {
848 				if($self->_depth_traverse_in_order($current, $flags, $depth, $funcref, $argref)) {
853 		} elsif(($flags & $TRAVERSE_NON_LEAFS) && &$funcref($node, $argref)) {
857 	} elsif(($flags & $TRAVERSE_LEAFS) && &$funcref($node, $argref)) {
866 	my ($self, $node, $flags, $funcref, $argref) = (shift, shift, shift, shift, shift);
879 			if(($flags & $TRAVERSE_NON_LEAFS) && &$funcref($current, $argref)) {
882 		} elsif(($flags & $TRAVERSE_LEAFS) && &$funcref($current, $argref)) {
896 …if(defined($current->{children}) && $self->_traverse_children($current, $flags, $funcref, $argref)…
906 	my ($self, $node, $flags, $depth, $funcref, $argref) = (shift, shift, shift, shift, shift, shift);
920 			if(($flags & $TRAVERSE_NON_LEAFS) && &$funcref($current, $argref)) {
924 		} elsif(($flags & $TRAVERSE_LEAFS) && &$funcref($current, $argref)) {
943 …ent->{children}) && $self->_depth_traverse_children($current, $flags, $depth, $funcref, $argref)) {
955 …my ($self, $root, $order, $flags, $depth, $funcref, $argref) = (shift, shift, shift, shift, shift,…
960 	if(!defined($funcref)) {
978 				$self->_traverse_pre_order($root, $flags, $funcref, $argref);
980 				$self->_depth_traverse_pre_order($root, $flags, $depth, $funcref, $argref);
987 				$self->_traverse_post_order($root, $flags, $funcref, $argref);
989 				$self->_depth_traverse_post_order($root, $flags, $depth, $funcref, $argref);
996 				$self->_traverse_in_order($root, $flags, $funcref, $argref);
998 				$self->_depth_traverse_in_order($root, $flags, $depth, $funcref, $argref);
1005 				if(!(($flags & $TRAVERSE_NON_LEAFS) && &$funcref($root, $argref))) {
1007 						$self->_traverse_children($root, $flags, $funcref, $argref);
1011 							$self->_depth_traverse_children($root, $flags, $depth, $funcref, $argref);
1016 				&$funcref($root, $argref);
1102 	my ($self, $node, $flags, $funcref, $argref) = (shift, shift, shift, shift, shift);
1110 	if(!defined($funcref)) {
1125 				&$funcref($current, $argref);
1129 				&$funcref($current, $argref);