Removed useless Polygon constructor and some cleanup

This commit is contained in:
Alessandro Ranellucci 2012-05-23 11:51:20 +02:00
parent 5a78111efa
commit efdf266df1
2 changed files with 5 additions and 26 deletions

View file

@ -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;