Removed useless Polygon constructor and some cleanup

2026-07-29 10:55:50 +00:00 · 2012-05-23 11:51:20 +02:00
parent 5a78111efa
commit efdf266df1
2 changed files with 5 additions and 26 deletions
@@ -22,6 +22,11 @@ sub new {
    $self;
 }

+sub clone {
+    my $self = shift;
+    return (ref $self)->new(map $_->clone, @$self);
+}
+
 sub serialize {
    my $self = shift;
    my $s = \ pack 'l*', map @$_, @$self;