Bugfix: removed warnings. #365

This commit is contained in:
Alessandro Ranellucci 2012-05-13 22:56:40 +02:00
parent 44c5c5be5b
commit 2a6ad2f3f7
3 changed files with 12 additions and 2 deletions

View file

@ -70,6 +70,13 @@ sub reverse {
@$self = CORE::reverse @$self;
}
sub length {
my $self = shift;
my $length = 0;
$length += $_->length for $self->lines;
return $length;
}
sub nearest_point_to {
my $self = shift;
my ($point) = @_;