sub new()
{
  my $class = shift;
  my $self = {};
  $self->{'from_node'} = undef;
  $self->{'to_node'} = undef;
  $self->{'label'} = undef;
  bless $self, $class;
  return $self;
}