sub compare { my ($loc1,$loc2,$rev)=@_; croak "Cant do this with autoloaded comparison\n" if $rev; if($loc1->get_X < $loc2->get_X and $loc1->get_Y< $loc2->get_Y){ return 1; } elsif($loc1->get_X > $loc2->get_X and $loc1->get_Y> $loc2->get_Y ){ return -1; } elsif($loc1->get_X = $loc2->get_X and $loc1->get_Y= $loc2->get_Y ){ return 0; return ; }