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;
return $self->_dellist('users', @_);
}
-sub DESTROY
-{
- my $self = shift;
- my $pkg = ref $self;
- my $call = $self->{call} || "Unknown";
-
- dbg("destroying $pkg with $call") if isdbg('routelow');
-}
-
#
# generic AUTOLOAD for accessors
#