/examples/cookbook/1.pl

 1use strict;
 2use warnings;
 3
 4use SDL;
 5use SDL::Rect;
 6use SDL::Event;
 7use SDL::Video;
 8use SDL::Events;
 9use SDL::Surface;
10
11SDL::init(SDL_INIT_VIDEO);
12
13my $display = SDL::Video::set_video_mode( 320, 320, 32, SDL_SWSURFACE );
14
15my $quit = 0;
16while ( !$quit ) {
17	my $event = SDL::Event->new();
18
19	SDL::Events::pump_events();
20
21	while ( SDL::Events::poll_event($event) ) {
22
23		$quit = 1 if ( $event->type == SDL_QUIT );
24
25	}
26
27}