X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FRoute%2FNode.pm;h=2a9c585dbd91c23a9fc0d27413a2fbbf57bf35c7;hb=9fdfb0d7573d820fb5e2db8930a9679ed6de666f;hp=49e241dddf5b6b7ef265861a5d2498da1c0af903;hpb=d0e9787ea8e709d8cbd91e87e363812e669c0ca6;p=spider.git

diff --git a/perl/Route/Node.pm b/perl/Route/Node.pm
index 49e241dd..2a9c585d 100644
--- a/perl/Route/Node.pm
+++ b/perl/Route/Node.pm
@@ -189,6 +189,12 @@ sub nodes
 	return @{$self->{nodes}};
 }
 
+sub parents
+{
+	my $self = shift;
+	return @{$self->{parent}};
+}
+
 sub rnodes
 {
 	my $self = shift;