Updated SDL::Event docs

[sdlgit/SDL_perl.git] / lib / SDL / Event.pm

diff --git a/lib/SDL/Event.pm b/lib/SDL/Event.pm
index 323a85e..0501172 100644 (file)
--- a/lib/SDL/Event.pm
+++ b/lib/SDL/Event.pm
@@ -31,6 +31,9 @@
 package SDL::Event;
 
 use strict;
+use warnings;
+use Carp;
+
 use SDL;
 
 sub new {
@@ -202,6 +205,8 @@ SDL::Event - a SDL perl extension
 
  use SDL::Event;
  my $event = new SDL::Event;             # create a new event
+ $event->pump();                        # pump all events from SDL Event Queue
+ $event->poll();                        # Get the top one from the queue
  while ($event->wait()) {
        my $type = $event->type();      # get event type
        # ... handle event