projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
wip
[spider.git]
/
perl
/
Route
/
User.pm
diff --git
a/perl/Route/User.pm
b/perl/Route/User.pm
index b9862e6de5f0b847a627a4af0279e2043cc85660..88d2aa2a0d0fb5a8e1e8986614a5ef33d9afec07 100644
(file)
--- a/
perl/Route/User.pm
+++ b/
perl/Route/User.pm
@@
-23,7
+23,7
@@
use vars qw(%list %valid @ISA $max $filterdef);
@ISA = qw(Route);
%valid = (
@ISA = qw(Route);
%valid = (
-
parent => '0,Parent
Calls,parray',
+
dxchan => '0,Dxchan
Calls,parray',
);
$filterdef = $Route::filterdef;
);
$filterdef = $Route::filterdef;
@@
-52,7
+52,7
@@
sub new
confess "already have $call in $pkg" if $list{$call};
my $self = $pkg->SUPER::new($call);
confess "already have $call in $pkg" if $list{$call};
my $self = $pkg->SUPER::new($call);
- $self->{
parent
} = [ $ncall ];
+ $self->{
nodes
} = [ $ncall ];
$self->{flags} = $flags;
$list{$call} = $self;
$self->{flags} = $flags;
$list{$call} = $self;
@@
-68,8
+68,8
@@
sub del
{
my $self = shift;
my $pref = shift;
{
my $self = shift;
my $pref = shift;
- $self->del
parent
($pref);
- unless (@{$self->{
parent
}}) {
+ $self->del
dxchan
($pref);
+ unless (@{$self->{
dxchan
}}) {
delete $list{$self->{call}};
return $self;
}
delete $list{$self->{call}};
return $self;
}
@@
-85,18
+85,6
@@
sub get
return $ref;
}
return $ref;
}
-sub addparent
-{
- my $self = shift;
- return $self->_addlist('parent', @_);
-}
-
-sub delparent
-{
- my $self = shift;
- return $self->_dellist('parent', @_);
-}
-
#
# generic AUTOLOAD for accessors
#
#
# generic AUTOLOAD for accessors
#