7 lines
115 B
Perl
7 lines
115 B
Perl
use SDL::App;
|
|
use SDL::Event;
|
|
|
|
$app = SDL::App->new;
|
|
$app->loop({
|
|
SDL_QUIT() => sub { exit 0; },
|
|
});
|