Help for this page

Select Code to Download


  1. or download this
    # reworked slightly, for conciseness.
sub new
...
  ( my $class, $self{qw( from_node to_node label )} ) = @_;
  bless \%self, $class;
}
  2. or download this
    sub new
{
...
  ( my $class, $self{qw( from_node to_node label )} ) = @_;
  bless \%self, $class;
}
  3. or download this
    sub new
{
...
    die "Error: can't set just one of the links!";
  bless \%self, $class;
}