## 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 <[email protected]>## COPYRIGHT & LICENSE

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