Geometry::Primitive::Line(3p)

NAME
Geometry::Primitive::Line - A Line

DESCRIPTION
Geometry::Primitive::Line represents a straight curve defined by two points.

SYNOPSIS
  use Geometry::Primitive::Line;

  my $line = Geometry::Primitive::Line->new();
  $line->start($point1);
  $line->end($point2);

ATTRIBUTES

  end
Set/Get the end point of the line.

  start
Set/Get the start point of the line.

METHODS

  new
Creates a new Geometry::Primitive::Line

  contains_point
Returns true if the supplied point is 'on' the line. Accepts either a point object or an x y pair.

  grow
Does nothing, as I'm not sure how. Patches or hints welcome.

  is_parallel ($other_line)
Returns true if the supplied line is parallel to this one.

  is_perpendicular ($other_line)
Returns true if the supplied line is perpendicular to this one.

  length
Get the length of the line.

  point_end
Get the end point. Provided for Shape role.

  point_start
Get the start point. Provided for Shape role.

  scale
Does nothing at the moment.

  slope
Get the slope of the line.

  to_string
Guess!

  y_intercept
Returns the Y intercept of this line.

AUTHOR
Cory Watson <gphat@cpan.org>

COPYRIGHT & LICENSE
You can redistribute and/or modify this code under the same terms as Perl itself.