X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FRoute%2FNode.pm;h=e7b18772eadeb0bc91fb99066de18ea40161ceb4;hb=42f3323cfe4eff424f4acc96ba665e666cb63b5c;hp=92501266ee24957d88c8b33a503385e0e0ef6709;hpb=a597f3d1e4533abebfd844d365f2d4cb62ba33e6;p=spider.git

diff --git a/perl/Route/Node.pm b/perl/Route/Node.pm
index 92501266..e7b18772 100644
--- a/perl/Route/Node.pm
+++ b/perl/Route/Node.pm
@@ -204,6 +204,25 @@ sub parents
 	return @{$self->{parent}};
 }
 
+sub has_user
+{
+	my $self = shift;
+	return $self->_haslist('users', shift);
+}
+
+sub has_node
+{
+	my $self = shift;
+	return $self->_haslist('nodes', shift);
+}
+
+sub has_parent
+{
+	my $self = shift;
+	return $self->_haslist('parent', shift);
+}
+
+
 sub rnodes
 {
 	my $self = shift;