Adicionando rotina para facilitar encontrar o node root.

Signed-off-by: Thiago Berlitz Rondon <thiago.rondon@gmail.com>
mantovani · May 17, 2011 · 6a982f2 · 6a982f2
1 parent 8c1db6e
commit 6a982f2
Showing 1 changed file with 28 additions and 0 deletions.
diff --git a/lib/CMD/Data/Utils.pm b/lib/CMD/Data/Utils.pm
@@ -0,0 +1,28 @@
+
+package CMD::Data::Utils;
+
+use strict;
+use warnings;
+use vars qw(@ISA @EXPORT_OK $VERSION @EXPORT_FAIL);
+require Exporter;
+
+@ISA       = qw(Exporter);
+@EXPORT_OK = qw(get_root_by_nodeid);
+
+$VERSION = '0.01';
+$VERSION = eval $VERSION;
+
+sub get_root_by_nodeid {
+    my $node = shift;
+    my $root = $node;
+    my $point = $node;
+    while ($point) {
+        my @parent = $point->parents();
+        $root = $parent[0] if scalar @parent;
+        $point = $point->parent;
+    }
+    return $root;
+}
+
+1;
+