implemented collidepoint

diff --git a/lib/SDL/Game/Rect.pm b/lib/SDL/Game/Rect.pm
index a74413f..7cffffa 100644 (file)
--- a/lib/SDL/Game/Rect.pm
+++ b/lib/SDL/Game/Rect.pm
@@ -590,6 +590,23 @@ sub contains {
     return $contained;
 }
 
+
+sub collidepoint {
+    my ($self, $x, $y) = (@_);
+
+    unless (defined $x and defined $y) {
+        croak "must receive (x,y) as arguments";
+    }
+    
+    my $inside = $x >= $self->x 
+              && $x < $self->x + $self->w 
+              && $y >= $self->y 
+              && $y < $self->y + $self->h
+              ;
+
+    return $inside;
+}
+
 42;
 __END__