# reworked slightly, for conciseness.
sub new
{
  my %self;
  ( my $class, $self{qw( from_node to_node label )} ) = @_;
  bless \%self, $class;
}