package Manticore::Geometry::LineSegment; use strict; use warnings; use Manticore::Geometry::Point; sub new { my ($pkg, $from, $to) = @_; return bless {from => $from, to => $to} } 1;