14 lines
191 B
Perl
14 lines
191 B
Perl
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;
|