manticore/Manticore/Geometry/LineSegment.pm
2023-12-30 13:38:26 +01:00

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;