2 # User routing routines
4 # Copyright (c) 2001 Dirk Koopman G1TLH
16 use vars qw(%list %valid @ISA);
20 node => '0,Node Calls,parray',
29 confess "already have $call in $pkg" if $list{$call};
31 my $self = $pkg->SUPER::new($call);
41 $call = shift if ref $call;
42 return $list{uc $call};
48 $self->_addlist('node', @_);
54 $self->_dellist('node', @_);