package Point;
# Stuff here...
sub isNextTo {
    my $self = shift;
    my $newPoint = shift;

    return $self->{PARENT}->Point_isNextTo($self, $newPoint);
}
# Stuff here...