my $ref = $self->_delparent($pcall);
my @nodes;
# is this the last connection, I have no parents anymore?
unless (@$ref) {
my $ref = $self->_delparent($pcall);
my @nodes;
# is this the last connection, I have no parents anymore?
unless (@$ref) {
foreach my $rcall (@{$self->{nodes}}) {
next if grep $rcall eq $_, @_;
my $r = Route::Node::get($rcall);
foreach my $rcall (@{$self->{nodes}}) {
next if grep $rcall eq $_, @_;
my $r = Route::Node::get($rcall);
- my @out = (Route::User->new($ucall, $self->{call}, @_)) unless $uref;
+ my @out;
+ if ($uref) {
+ $uref->addparent($self->{call});
+ } else {
+ @out = Route::User->new($ucall, $self->{call}, @_);
+ }