Minor cleanups

This commit is contained in:
Alessandro Ranellucci 2011-09-26 19:53:01 +02:00
parent 81085433fd
commit b61b543243
5 changed files with 2 additions and 29 deletions

View file

@ -3,7 +3,6 @@ use Moo;
use Math::Clipper ':all';
use Math::Geometry::Planar;
*Math::Geometry::Planar::OffsetPolygon = *Math::Geometry::Planar::Offset::OffsetPolygon;
use XXX;
use constant X => 0;
@ -130,12 +129,4 @@ sub _mgp_from_points_ref {
return $p;
}
sub _mgp_from_polygons_ref {
my $self = shift;
my ($polygons) = @_;
my $p = Math::Geometry::Planar->new;
$p->polygons($polygons);
return $p;
}
1;