X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSDL%2FEvent.pm;h=05011724b9c6cab7d240505c1e4619e507226e97;hb=5ccf0b03b8b768a2b11d271f45929e4098c7374a;hp=323a85eacb6795d0d762f95198c80d41d1722cdd;hpb=bfd90409c307d445ed6fec5cce6344b1e3d1be05;p=sdlgit%2FSDL_perl.git

diff --git a/lib/SDL/Event.pm b/lib/SDL/Event.pm
index 323a85e..0501172 100644
--- 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