Select Code to Download

point intersects(Line line, Point point) {
  return lp_intersect(point, line);
}
...
point intersects(Point point, Line line) {
  return lp_intersect(point, line);
}

point intersects(Point point1, Point point2) {
  return point1.equals(point2);
}

sub intersects {
  my ($self, $arg1, $arg2) = @_;
  unless ( 
...
    return $self->_line_intersect($arg1, $arg2);
  }
}

  unless ( 
    ($self->_is_point($arg1) or $self->_is_line($arg1) or $self->_is_p
+lane($arg1))
...
  ) {
    die "Bad args";
  }

  unless ( 
    ($self->_is_point($arg1) or $self->_is_line($arg1) or $self->_is_p
+lane($arg1))
...
  ) {
    die "Bad args";
  }