$parent->_addnode($call);
$self = $parent->new($call, @_);
return $self;
$parent->_addnode($call);
$self = $parent->new($call, @_);
return $self;
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);