Select Code to Download

sub contested : lvalue { my $self = shift; $self->{_contested} }

  # works in package main; but not package Board;
  foreach my $queen1 (@queens) {
...
      $queen1->contested++ if $linear->($queen1->location, $queen2->lo
+cation);
    }
  }