package DNetwork;
use base 'Network';

use Scalar::Util 'weaken';

sub connect {
  my ($self, $node, $weak) = @_;
  return if $self->connected_to($node);
  weaken($self->{CONN}{$node->name} = $node) if $weak;
  $node->connect($self, 1);
}

sub DESTROY {
  my ($self) = shift;
  my $data = $self->data;
  warn "Destroyed object '$data' ($self)";
}

1;